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ABSTRACT 


This  thesis  examines  the  use  of  an  inexpensive 
commercial  microcomputer  for  the  preparation  of  Naval 
Reporting  Structure  Operational  Reports.  These  highly 
formatted  reports  provide  critical  unit  information  used  by 
the  National  Command  Authority  and  Joint  Chiefs  of  Staff  in 
assessing  the  nation's  defense  posture.  Since  tnese  reports 
are  processed  by  computer,  correct  formatting  and  data  entry 
are  essential  to  preserve  the  timeliness  and  accuracy  of  the 
information.  The  requirements  of  a  Report  Origins tior  System 
are  investigated  from  the  perspective  of  the  system 
operator,  the  message  drafter  and  the  message  releasing 
authority.  Interfaces  are  developed  which  provide  for  system 
application  to  different  hardware  configurations.  A  subset 
of  the  Ada  language  is  used  to  allow  structured  programming 
and  data  abstraction  techniques.  Slement?  of  the  Unit  Status 
and  Identity  Report  (UNITRZP)  are  implemented  using  this 
method . 
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I.  BACKGROUND 


The  need  for  current  and  correct  command  and  control 
information  within  the  military  has  long  been  recognized. 
There  will  most  likely  never  be  a  time  when  the  services 
possess  assets  that  are  considered  in  excess  of  those  re¬ 
quired  to  perform  the  assigned  missions.  With  the  advance  of 
technology  over  the  past  forty  years  we  have  seen  a 
continuing  decrease  in  the  time  required  to  act  or  react  to 
a  given  situation.  The  advent  of  the  computer  provided  both 
the  cause  and  the  means  to  reduce  decision  making  time.  In 
these  days  when  "rapid  deployment"  has  become  a  keyword,  the 
ability  of  the  higher  authority  to  quickly  and  precisely 
Judge  the  disposition  and  status  of  forces  has  become 
paramount. 


A.  TEE  FHCBLEm 

To  obtain  such  an  appraisal  of  forces,  hundreds  of  bits 
of  information  (normally  submitted  via  message  reports) 
relating  to  location,  personnel  manning  and  training,  equip¬ 
ment  status  and  overall  readiness  condition,  for  many 
individual  units  must  be  examined. 

At  the  transmitting  end  we  have  the  originator  who  must 
si*t  through  volumes  of  instructions  to  determine  WHAT  is 
required  to  be  reported,  WEEN  it  is  required  to  be  reuorted 


and  HOW  it  is  to  be  reported.  All  too  often  the  drafting 
process  reverts  to  examining  past  reports  for  the  general 
form  and  content.  Thus  errors  tend  to  perpetuate  themselves. 

At  the  receiving  end,  the  World  Wide  Military  Command 

l 

and  Control  System  (WWMCCS  )  supports  the  National  Command 
.Authority  and  the  Joint  Chiefs  of  Staff  by  processing, 
correlating  and  presenting  the  Information.  The  computers  on 
which  the  WWMCCS  is  based,  for  all  their  speed  and 
precision,  can  only  respond  to  that  information  for  which 
they  are  programmed.  Although  that  programming  may  be 
arbitrarily  complex  (to  include  such  items  as  look-up 
tables,  alternative  spellings/ formats  and  sophisticated 
deduction  algorithms)  it  is  still  finite  and  cannot  possibly 
cover  all  situations.  When  the  computer  cannot  determine  the 
logical  content  of  a  received  report  it  must  queue  that 
report,  awaiting  a  human  operator's  intervention  and 
subsequent  correction.  The  operator,  when  manually 
processing  the  report,  MAY  be  able  to  deduce  what  was  meant 
to  be  reported,  or  ray  be  forced  to  guess.  It  is  not 
reasonable  to  assume  that  the  operator  will  always  correctly 
determine  what  was  Intended  by  an  originating  unit. 

Such  is  the  problem  :  The  computer  receiving  the 
information  requires  correct  format  and  content  in  order  to 
provide  accurate  and  timely  information;  the  human  sending 
the  information  does  not  easily  communicate  in  computer 
terms,  tending  more  towards  a  free  format,  uncoded  style. 
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B.  EARLY  5FF0RTS 


It  should  he  clear  that  the  computer  Is  both  the  prota¬ 
gonist  and  the  antagonist  in  this  situation.  It  CAN  provide 
current  and  correct  information  to  the  decision  maker  IF  it 
receives  the  correct  information  in  the  cornet  format  in 
the  first  place.  However,  if  the  information  is  not  proper 
in  format  or  content,  correcting  it  will  at  best  create  a 
time  late  problem  and  at  worst  result  in  contamination  of 
the  WVmCCS  database  with  incorrect  interpetations . 
Concluding  that  computerized  information  processing  was  the 
best  means  of  satisfying  the  stringent  time  requirements 
considering  the  voluminous  data,  several  approaches  were 
attempted.  All  depended  on  the  originator  sending  accurate, 
timely,  properly  formatted  information. 

1.  Composite  Report  iCOKPRXP) 

A  Composite  Reporting  System  (COMPREP)  was  designed 
and  tested  by  Commander  First  Fleet  in  1S?1.  This  was  an 
attempt  to  reduce  the  number  of  required  operational  reports 
by  substituting  a  unified  report  formatted  for  automatic 
data  processing.  With  the  limited  resources  available  the 
system  was  not  sufficiently  developed  to  prove  its  worth  as 
an  effective  management  tool.  The  main  deficiency  proved  to 
be  the  coded  format  which  made  the  report  difficult  for  even 
the  originator  to  decipher  once  the  report  had  been 
prepared . 


2.  Z/C  13  Increment  I  XCCMPRIPj 

This  study,  concluded  in  1975,  set  as  its  goal  the 
combination  of  the  Naval  Status  of  Forces  Report 
( NAVFORSTAT) ,  Movement  Report  (MOVER!?),  Casualty  Report 
(CASREP)  and  Emergency  Military  Standard  Requestioning  and 
Issue  Procedures  (MILSTRIP)  into  a  single  reporting  system. 
A  separate  reporting  structure  and  training  for  its  use  were 
developed.  This  system  was  not  recommended  because  it  did 
not  totally  integrate  required  operational  reports,  the 
messages  were  not  easily  drafted  and  the  final  message  was 
not  easily  understood  by  the  originator.  The  test  and 
evaluation  (T  &  E)  report  concluded  than  it  was  basically  a 
rehash  of  the  the  existing  system  with  little  genuine 
improvement.  [Ref.  1] 

3 .  Composite  Operation s  Reporting  System  XCORSJ 
Reflecting  on  the  conclusions  of  the  COMPREP  T  &  E 

report,  the  goals  of  COMFREP  were  re-evaluated.  This  effort, 
designated  the  Composite  Operations  Reporting  System,  was 
conducted  between  the  Office  of  the  Chief  of  Naval 
Operations  (OPNAV)  CORS  Steering  Committee  and  the  Naval 
Electronics  Systems  Command  (NAVEL2X).  The  goals  of  the  CORS 
were: 

—  to  provide  alternatives  for  a  reporting  system  which 
would  provide  timely  and  accurate  data  to  required 


levels  of  command 


—  to  minimize  reporting  requirements  of  iodlvicual 
units  by  combining  Imployment  Schedule,  Movement 
Reports,  Casualty  Reports  and  Naval  Status  cf  Forces 
Reports 

—  to  provide  significant  improvements  in  the  read- 
atility,  draftahility  and  communications  systems 
impact. 

Of  twelve  alternatives  proposed,  the  final  recommendation 
was  to  develop  a  system  in  which  the  originator  would 
manually  draft  simple,  readable,  formatted  messages  using 
predefined  forms  and  decision  logic  trees.  This  alternative 
was  Judged  most  feasible  due  to  its  ability  to  be 
Implemented  early.  The  benefit  of  a  computer  based  Reuort 
Origination  System  (ROS)  in  the  drafting  of  the  messages  was 
realized  but  not  recommended  due  to  economic  constraints. 
Other  alternatives  rejected  were  strict  narrative  reports 
with  manual  insertion  into  the  database  by  operators  at  the 
receiving  sites  and  limited  narrative  reports  with  a  special 
front  end  text  processor  at  the  receiving  site.  These 

alternatives  could  not  reasonably  meet  schedule,  technology 
or  economic  contraints  at  that  time.  [Ref.  2j 
4 .  Report  Origination  System  |R0S) 

The  concept  of  a  computer  based  system  to  support 
the  originator  in  the  preparation  of  formatted  reports 
had  been  explored  during  the  OCRS  effort.  Such  a  system  was 
conceived  to  have  the  following  properties/capabilities: 


—  lie  microcomputer  based 

—  be  menu  driven 

—  provide  a  screen  display  similar  in  format  to  the 
required  report 

—  perform  error  checking  in  such  areas  as  proper  alpha¬ 
numeric  characters,  field  length  and  logical  content, 

—  provide  a  hard  copy  output  of  the  required  report  in 
acceptable  message  format. 

In  lecember  1976  Eolyoak  [Ref.  3]  of  the  Naval  Post¬ 
graduate  School  issued  a  thesis  regarding  the  implementation 
of  the  BOS  for  a  NAVFORSTAT  on  a  microcomputer  system.  This 
ROS  was  coded  in  Intel  Corporation's  PL/M  systems  language 
for  an  8060  based  Intellec  -  8  mainframe  with  16K  of  main 
memory.  Subsequently,  in  June  1977,  Godley  [Ref.  4] 
completed  a  follow-on  thesis  based  on  the  same  hardware  but 
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expanded  to  include  general  formatted  reports. 

C.  RECENT  LEVELCPMENTS 

Following  the  COP.S  report,  several  different  areas  were 
investigated  to  gather  the  information  necessary  to  revamp 
the  operational  reporting  system.  These  efforts  concentrated 
on  defining  the  desired  data,  conducting  a  study  to 
determine  the  source  of  errors  in  the  current  system, 
conducting  a  ROS  prototype  development  and  test  and  an 
examination  of  systems  available  to  the  fleet. 


1.  Navy  Hepgrtlng  Structure  1NRSJ 

As  previously  stated,  one  of  the  goals  of  the  CORS 
was  to  develop  an  operations  reporting  systeir  which  was 
unified,  easy  to  understand  in  both  concept  and  output  and 
which  provided  a  simple  message  drafting  capability. 
Consequently,  the  Chief  of  Naval  Operations,  OP-643,  was 
designated  as  the  central  point  of  contact  and  approval 
authority  for  tressage  text  formatting  and  data  element  issue 
and  activities  within  the  Eepartment  of  the  Navy.  Intense 
effort  resulted  in  the  February  1982  promulgation  of  the 
proposed  OPNAVINST  3503.x  series:  Navy  Reporting  Structure 
Operational  Reports  [Ref.  5].  This  seven  volume  instruction 
consists  of  the  following: 

OPNAVINST  3503.1  NRS  -  General  Instructions 
OPNAVINST  3503.2  NRS  -  Staff  Report  (STAFFREP) 

OPNAVINST  3503.3  NRS  -  Employment  Schedule  Report  (EMSREP) 
OPNAVINST  3503.4  NRS  -  Casualty  Report  (CASRIP) 

OPNAVINST  3503.5  NRS  -  Unit  Status  and  Identity  Report 

(UNITRIP) 

OPNAVINST  3503.6  NRS  -  Surface  Movement  Report  (SURFMOVE) 
OPNAVINST  3503.7  NRS  -  Submarine  Movement  Report  (SUBMOVE) 

OPNAVINST  3503.1  summarizes  the  NRS  operational  reports, 
sets  responsibilities  of  cognizant  commands,  details  the 
management  of  the  program  and  establishes  clear  guidelines 
relating  to  formatting  procedures  and  message  preparation. 
All  other  instructions  in  the  series  relate  to  specific 
reports  and  provide  reporting  requirements,  data  set  and 
field  descriptions,  look  up  tables  and  sample  worksheets  for 


preparation  cf  certain  report  items.  Numerous  examples  are 
prcvidei  throughout  the  instructions.  The  influence  cf  hum^r. 


readab  ility 

L  s 

seen 

in  the 

care 

with  whicn 

uata  riSi 

descriptors 

were 

sele 

’ted  . 

The 

influence 

cf  reroute 

processing 

is 

seen 

in  the 

high 

aegree  of 

f  orma  t  ti  r. 

require! . 


2.  Error  Study 

Concurrently  witn  the  t?.S  development ,  NAVILiX 

conducted  a  study  tc  determine  the  source  cf  errors  within 
current  formatted  reports  sent  to  an  error  queue  and  tr.r 

result  cf  such  errors  on  the  timeliness  cf  information 

er.terea  into  the  'j/’jkTCCS  database  [Hef .  5].  CASPiPs, 

••‘CVIF.EPs  TNITrEPs  and  HAIKFCHMs  were  examined  ar.d 
catalogued  by  nun  her/ type  errors,  type  unit  and  time  late  to 
the  database.  ?<•  percent  cf  all  MOVPEFs.  61  uercent  cf  all 


UNIT???*  and  46  percent  cf  all  BAIXJCFYS  were  fo.unc  tc  oe  in 
error.  No  CAS?IF  error  analysis  was  made.  Tanle  1-1  lists 
a  breakdown  of  the  average  errors  These  averages  represent 
76.1  percent  of  the  total  errors  discovered.  ih°  r=an  time 
delay  from  transmission  to  entry  into  the  data  base  :cr  a 
message  sent  tc  the  error  queue  is  shewn  ir  taole  1-2. 

2.  Casualty  Fepcrt  .CASF.IP,  Test 

rased  on  the  results  cf  the  error  study  the 


decision  was  made  tc  develop  a  prototype  5CS  system  fcr  tee 


VFS  CA 5? IP 


/then  pending  release  as  NVP  c 


revi s ion 


Table  1-1.  Formatted  Message  Irror  Study  Analysis 


DATA  CONTENT  ERRORS 


PERCENT  OF  ERRORS 


Character  Type  2.1 
Calculations/Associations  14.3 
Message  Identification  4.7 
Valve  Mismatch  22.6 
Date-Time  Group  3.8 
Position  1.2 

FORMAT/ STRUCTURE  ERRRCRS 

Descriptor  9.S 
Sequence  5.7 
Missing  Mandatory  5.4 
Logical  Relationships  v  1.8 
Size  3.9 
Duplicates  0.7 


Table  1-2.  Average  Time  Delay  for  Report  Messages  in  Error 


TIP I  MESSAGE 
MCVREP 
UNITRIP 
RAINFORM 
CASRIP 


TOTAL  TIME  DELAY 
3  hrs  £4  min 
3  hrs  45  min 
7  hrs  44  min 
33  hrs  22  min 


Appendix  3).  The  contractor,  Sterling  Eata  Applications 


Incorporated  of  Sterling  VA.,  programmed  the  ROS  in  the 
BASIC  language  on  an  SES  420  microcomputer  system.  In 
addition  to  providing  a  hard  copy  message  output,  the  system 
also  prepared  a  punched  paper  tape  compatiole  with 
communicatl ons  equipment  aboard  ship.  This  prevented  typing 
errors  during  message  center  preparations  for  transmittal. 
The  system  was  deployed  aboard  the  USS  CALIFORNIA  (CGN-36) 
from  1  April  1981  through  3  June  1981  for  a  ROS  Prototype 
Eevelopment  Test.  Unfortunately  NWP  7  Rev  A,  App.  B  was  not 
released  in  time  for  the  test  which  necessitated  review 
under  the  then  current  and  proposed  instructions.  Dual 
message  logs  were  maintained  for  the  81  messages  processed 
under  the  existing  and  proposed  systems.  Error  checking  was 
accomplished  after  deployment  by  comparing  these  logs  and 
conducting  an  error  queue  analysis  for  CASREPs  from  the 
CALIFORNIA. 

The  test  noted  that  commercial  hardware  coulc.  function 
successfully  in  the  shipboard  environment.  Only  one  hardware 
failure  was  noted  -  a  read/write  disk  head  disengagement 
during  sea  state  4  (10-15  degrees  roll,  5-7  degrees  pitch, 
4-8  foot  waves)  operations.  This  was  corrected  by 
positioning  the  microcomputer  at  an  angle  to  the  ships  roll 
axis.  Four  presumed  software  failures  occured  on  the  afloat 
system.  However  none  of  these  failures  could  be  recreated  at 
the  test  site  ashore.  The  report  implied  that  the  afloat 
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failures  were  due  to  operator  error.  One  software  failure 
occured  at  the  shore  site  and  was  corrected.  [Ref.  ?] 

4.  Word  Processing  Approach 

The  decision  to  implement  OPNAVINST  3503.x,  Naval 
Reporting  Structure  Operation  Reports,  has  been  delayed 
pending  replacement  or  recoding  of  the  Eoneywell  6000 
computers  on  which  the  WWPCCS  resides  (projected  1987).  In 
the  meantime  the  Navy  had  decided  on  the  Xerox  860  Word 
Processor  as  the  standard  word  processor  approved  for 
service  purchase.  Current  efforts  are  aimed  at  providing  the 
fleet  a  fill-in- the-blank  format  capability  for  CASREF  and 
EMSXIE  reports  as  soon  as  possible.  As  a  fill-in-the-blank 
capability  does  not  completely  meet  the  full  requirements  of 
a  ROS  system  (no  data  cross  checking,  error  notification, 
etc.),  Sterling  Data  Applications  is  examining  the 
feasibility  of  installing  d  CF/P  board  in  the  Xerox  860  tc 
convert  it  to  a  true  microcomputer.  Initial  indications  are 
that  this  is  a  possible,  though  costly  alternative. 
Additionally,  SEA  has  recoded  the  prototype  ROS  CASREF  from 
the  BASIC  language  to  the  COBOL  language  in  compliance  with 
DOE  standards. 

The  purpose  of  the  RCS  is  clear  -  overcome  the 
boundry  of  the  man-computer  interface  by  providing  the  the 
men  at  sea  the  tools  to  easily,  rapidly  and  accurately; 
draft,  prepare,  review  and  transmit  formatted  reports  to 
higher  authority  ashore. 


Considerable  effort  has  gone  Into  proving  that  the 
concept  is  viable  and  effective.  With  the  program  restricted 
by  current  budgetary  constraints  and  actual  implementation 
dependent  on  the  installation  of  the  new  WWPCCS  computers  or 
recoding  of  the  current  system  to  accept  the  new  reports,  it 
was  decided  to  examine  the  ROS  in  a  future  context.  The 
recent  increase  in  the  capabilities  of  commercial 
microcomputer  equipment  and  software  tools,  and  the 
concurrent  decrease  in  cost,  appears  to  make  the  planned 
implementation  of  the  ROS  concept  all  the  more  desirable. 
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II.  DESIGN  OBJECTIVES 


The  purpose  of  the  ROS  is  to  reduce  errors  in 
operational  reports  submitted  from  the  unit  level.  The 
concept  behind  the  ROS  is  to  provide  the  originator  a 
microcomputer  based  system  which  will  simplify  the  report 
generation  cycle.  The  proposed  benefits  of  the  ROS  are:  a 
greater  confidence  in  the  accuracy  of  the  data  retrieved 
from  the  VVMCCS  database  by  higher  command;  quicker 
insertion  of  update  information  into  the  database;  reduction 
of  manpower  required  to  correct  erroneous  reports  at  the 
WWMCCS  sites?  a  lowered  administrative  burden  on  the 
originating  unit.  Three  primary  areas  should  be  addressed 
when  considering  the  design  of  such  a. system:  the  user,  the 
hardware  on  which  the  system  is  to  be  based  and  the  software 
tools  with  which  the  system  is  to  be  Implemented. 


A.  USER  CC  NS  HERAT  IONS 

In  any  report  generation  cycle  several  'user' 
distinctions  may  be  made  (e.g.  clerk/typl st ,  drafter, 
releaser).  Each  'user'  has  particular  requirements  from  any 
system  providing  assistance  in  report  generation. 

1 .  System  Operator 

At  the  most  fundamental  level,  the  system  operator 
(i.e.  the  clerk/typist)  is  responsible  for  preparation  of 


the  final  report  for  transmission  anc.  the  maintenance  of 
historical  files.  Kis  responsibilities  would  entail  data 
entry,  data  storage  and  retrieval,  and  an  understanding  of 
basic  system  capabilities.  System  operator  requirements  and 
questions  would  entail: 

—  How  easy  is  the  system  to  learn  and  operate? 

—  Are  frequent  references  to  a  user's  manual  required? 

—  Eow  'crash'  resistant/reliable  is  the  system? 

—  What  is  the  is  the  Initialization  procedure? 

—  How  is  data  entry  accomplished? 

—  What  is  the  source  of  the  data  to  be  entered? 

—  What  is  the  input  error  correction  procedure? 

—  Does  the  system  provide  a  properly  formatted  output? 

—  Toes  the  system  maintain  past  information?  If  so,  is 
that  information  easy  to  access? 

—  Does  the  system  make  the  job  easier? 

2.  Drafter 

The  report  drafter  must  determine  when  conditions 
require  a  report  to  be  submitted.  Pertinent  information  must 
be  gathered,  usually  from  several  different  sources  -  one  of 
which  may  be  previously  reported  data.  The  proper  format  for 
that  information  is  normally  decided  by  the  governing 
instruction.  The  drafter  may  be  only  minimally  concerned 
with  the  operation  of  the  system  or  may  desire  the 


capability  to  generate  a  report  in  real-time  (i.e.  without 
the  assistance  of  the  system  operator  and  without  a  drafting 


document).  Hrafter  requirements  and  questions  would  be 
slightly  different: 

—  How  closely  does  the  system  correlate  to  the 

instruction  that  requires  the  report? 

—  Toes  the  system  provide  detailed  drafting  information 
(data  fields,  field  lengths,  sources  of  Information 
and  requirements  for  submission)? 

—  Toes  the  system  provide  a  means  of  presenting 
all  information  as  currently  reported? 

—  Can  the  system  'back-up'  to  any  stage  in  the 

reporting  cycle  and  present  information  that  was 
current  as  of  that  time  (e.g.  when  required  to  verify 
information  as  requested  by  higher  authority)? 

—  How  easy  is  it  to  learn  the  system  operator's  J«*b? 

—  Is  there  sufficient  information  available,  on  li.:e  at 
the  terminal,  to  assist  in  the  real  time  preparation 
of  a  report? 

—  Hoes  the  system  make  the  Job  simpler/ easier? 

3.  Eeleaser 

The  releaser  is  not  concerned  with  the  operation  cf 
the  system,  but  primarily  directs  his  attention  to  the 
requirements  to  submit  the  report,  the  content  of  what  is 
being  reported  and  the  ability  to  understand  the  report  with 
minimal  reference  to  the  governing  instruction.  Releaser 
requirements : 

—  Certainty  that  the  report  conforms  to  the  required 
format. 

—  A  simple  guide  which  is  a  decoded  version  of  the 
report,  providing  a  logical  grouping  of  information 
and  what  that  information  represents. 


B.  DESIGN  REQUIREMENTS 


With  the  three  separate  'users'  to  consider  and  the 
variety  of  their  requirements  it  is  clear  that  a  three 
tiered  approach  is  necessary  to  provide  the  individual  user 
the  required  features. 

1 .  System  Operator 

The  system  operator's  requirements  tend  to  center 
about  the  microcomputer  system^nd  the  3CS  program.  To 
satisy  these  requirements: 

—  Provide  a  detailed  User's  Manual  covering  such  areas 
as  installation  procedures,  general  operation, 
displays,  etc. 

—  Logically  group  data  sets  together  in  screen  displays 
which  are  annotated  in  plain  language  with  adequate 
on  screen  prompts.  The  screen  displays  should  close¬ 
ly  follow  any  drafting  document. 

—  The  system  should  be  user  friendly/fault  tolerant. 
There  should  be  no  abnormal  terminations.  Any 
termination  requires  user  notification  and  procedures 

'  to  be  followed  to  resume  normal  operation. 

—  Incorrect  entries  should  trigger  clear,  concise  error 
messages  which  inform  the  user  of  the  error  and, 
when  appropriate,  the  proper  action  to  be  taken. 

—  Limit  keyboard  input  to  only  these  characters 
acceptable  for  Optical  Character  Reader  (OCR)  and 
BAUICT  message  transmission  codes.  All  illegal 
keyboard  inputs  should  be  rejected  with  notification 
to  the  user. 

—  Bata  entry  should  be  menu  driven  in  cases  where  only 
distinct  choices  are  possible. 

—  Where  the  user  must  enter  data  into  fields  the  input 
should  be  limited  to  the  allowed  field  length. 

—  If  the  entry  is  obtained  from  a  table,  the  entry 
should  be  cross  checked  against  thet  table  to  ensure 
its  validity. 


—  Fields  of  fixed  formats  such  as  date-time  groups, 
latititude-longitude  positions  should  appear  as  a 
template  over  which  the  operator  enters  the  proper 
data.  All  such  fields  (and  associated  checksums) 
should  he  verified. 

—  Numeric  fields  should  he  verified  and  range  checked. 

—  Sum/total  numeric  fields  should  he  cross  checked 
against  the  sum  of  the  component  fields. 

—  Mutually  exclusive  items  should  he  treated  as  such 
within  the  system  and  displays. 

—  Input  of  unit-type  specific  items  should  only 
he  allowed  for  the  unit-types  authorized  (e.g.  if 
only  a  ship  can  report  some  item,  an  air  unit  would 
not  he  allowed  to  report  it). 

—  The  system  should  provide  a  two  format  output  option: 
EI-173  (OCR)  and  Standard  Naval  Message  Format  as 
received  during  fleet  broadcasts. 

2.  Irafter 

The  drafter  is  obviously  concerned  with  assistance 
in  the  preparation  of  the  report.  To  provide  this  service 
the  system  should: 

—  Prepare  a  hardcopy  rough  drafting  form.  Items  on  the 
form  should  he  keyed  to  the  display  screens  presented 
to  the  system  operator  and  therefore  he  logically 
grouped.  The  drafting  form  should  closely  follow  the 
instruction  requiring  the  report.  Information 

required  on  the  form  will  he: 

—  the  data  set  name,  associated  field  names  and  a 
fill  in  area  of  the  appropriate  field  width 

—  source  of  the  information 

—  meaning  associated  with  each  field  if  not  self 
explanatory 

—  conditions  for  submission  of  the  data  set 

—  all  currently  reported  information  (in  message 
format ) 


—  Prepare  the  proper  format  Internally.  The  drafter 
should  only  provide  the  necessary  information  to  the 
system  operator  for  entry  into  the  RCS. 

Additionally,  there  is  the  constraint  of  the  drafter 
operating  the  system  for  real-time  report  generation.  For 
this  requirement  the  drafter  will  require  all  the  assistance 
of  the  system  operator  plus: 

—  An  additional  on  line  help  facility  which  contains 
information  normally  available  only  in  the  draft 
document . 

3.  Releaser 

With  automatic  formatting,  the  releaser  need  only 
he  concerned  with  the  content  of  the  report.  Expanding  the 
rough  drafting  document  to  include  explanations  of  coded 
items  and  allowing  an  option  for  preparation  of  this  form 
based  on  the  information  to  be  reported  should  satisfy  this 
requirement. 

C.  HARDWARE  CONSIDERATIONS 

As  the  ROS  should  only  be  considered  a  tool  in  the 
preparation  of  reports,  it  should  be  implemented  on  as 
economical  a  microcomputer  system  as  possible.  It  should  not 
require  a  system  that  is  WIL-SPEC  compatible  (such  as  the 
UYK-20).  Off  the  shelf  commercial  equipment  appears  the  best 
approach.  Unfortunately  the  Navy  has  not  standardized 
purchase  procedures/requirements  for  a  general  purpose 
commercial  microcomputer  as  it  has  for  word  processors.  The 
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proliferation  of  commercial  models  thoughout  the  fleet  is 
well  known  -  TRS-80S ,  AFPLls  and  EPs  to  naire  several. 

The  frost  common  eight-tit  microprocessor  architecture  in 
use  today  is  that  of  the  Z-92/8080  group.  To  have  the 
greatest  commonality  with  this  group  it  was  determined  that 
the  microcomputer  should  he  Z-80  tased.  Additionally  it  was 
desired  to  have  dual  single-sided  single-density  disk  drives 
to  provide  a  minimum  of  one-half  megabyte  of  storage.  This 
would  allow  the  program  executable  code  to  be  contained  on 
one  disk  while  data  storage  files  for  oast  reports  could  be 
filed  on  the  other  disk.  Termir.di/keyboard  groups  are  as 
widely  varied  as  microcomputer  systems  if  not  more  so.  The 
requirement  was  for  a  full  ASCII  keyboard  with  a  minimum  23 
line  by  ?S  column  terminal  display.  Other  differences 
between  terminals  can  normally  be  accomodated  by  a  software 
interface  as  long  as  the  electrical  connection  is  via  the 
industry  standard  RS-232.  It  was  desired  that  the  printer  be 


of  the  page  feed  variety  in  order  to  develop  the  necessary 
procedures  for  the  alignment  and  individual  paging 
mechanisms  as  would  be  used  in  preparing  an  OCR  Joint 
messageforrr  (EE-173). 

On  the  basis  Of  avail i bility,  an  ACS  8000-1  Altos 
Computer  System  and  a  BATAMEEIA  ELITE  2500  keyboard  and 
terminal  were  selected.  A  page  printer,  however,  was  not 
readily  available  and  a  Teletype  Corporation  model  40 
continuous  line  printer  was  substituted. 


E.  SOPTWABI  CONS  ITERATIONS 

Since  the  irost  common  operating  system  for  commercial 
microcomputers  is  currently  Digital  Research's  Control 
Program  for  Microprocessors  (CP/M),  this  system  was  included 
whenever  an  operating  system  was  required.  Additionally  many 
of  the  language  compilers  examined  for  the  system  required 
CP/M. 

As  it  was  desired  tc  code  the  system  in  a  structured 
language  which  allowed  data  abstraction  (looking  forward  to 
a  full  system  development  in  tne  proposed  Eepartrrent  of 
Eefense  standard  language  ADA  [Ref.  8]),  several  variants  of 
PASCAL  were  examined  including  UCSD  Pascal,  JRT  Pascal, 
SORCIM  Pascal  and  MP+  Pascal  > Digital  Research).  Initial 
programming  began  with  OCSD  Pascal  hut  was  abandoned  when  it 
was  discovered  that  the  available  version  did  not  possess 
the  facilities  for  separate  module  compilation.  Coding 
resumed  with  JRT  Pascal  hut  was  quickly  abandoned  for  lack 
of  helpful  debugging  diagnostics.  The  examination  of  SORCIM 
or  MP+  as  an  alternative  was  interrupted  by  the  ready 
availability  of  JANUS/AIA  by  RR  Software,  Madison,  WI .  [Ref. 
9].  JANDS/ADA  is  a  limited  subset  of  the  proposed  standard 
but  met  the  requirements  for  a  structured  language  that 
allowed  data  abstraction,  required  CP/M  and  ran  on  a  Z-80 
based  system.  The  limitations  imposed  by  the  subset  will  be 
refered  to  as  they  applied  during  the  implementation  of  the 
system  (Chapter  IV). 


III.  SYSTI?  C7EB7IIW 

Tc  support  the  requirements  discussed  in  Cnapter  II 
several  different  computer  systems  levels  must  he  aucressed. 
At  the  rest  elementary  level,  software  interfaces  to 
terminals  and  printers  are  required.  As  the  sit*  cf  thc 
program  expanded  and  it  became  necessary  t;  mysically 
separate  the  program  into  modules  a  rears  of  module 
communication  was  required.  The  majority  cf  the  .-./stem  is 
'cnr^rned  with  the  capabilities  which  the  prove  am  provides 
and  how  the  report  information  is  grouped,  displayed  ar.d 
maintained.  The  MBS  I’M  IT  Hi?  [Be'.  was  selected  as  the 

demonstration  vehicle.  Figure  c-i  details  the  system 
overview. 

A  .  LOGICAL  If.FCFhATICN  GROUPING 

Pa s ed  on  the  requirements  cf  the  three  users  discussed 
in  Chapter  II,  ere  cf  the  driving  design  factors  for  the  BOS 
UNITRI?  is;  a  logical  grouping  cf  information  •  r  c  t  h  in  t.c- 

i 

crafting  document  and  screen  displays,  Upon  exar  i  na  tier,  cf 

j 

the  UNITj/ir  instruction  it  was  coserved  that  ei.-ht  areas, 
called  s/ituations ,  are  ieliniatei  whi'uh  provide  a  partial 
logical  grouping  [Bef.  10:  para.  1.5a]: 

(1)  Personnel  Status 

'2)  Administrative  Status 

(2)  Unit  Combat  Readiness  Assessment 
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Figure  3-1.  ROS  UNITREP  SUBSYSTEM  Overview 


(4)  Aircraft  and  Crews  Status 

(5)  Major  Equipment  Status 

(6)  Special  Capabilities  Status 

(?)  Increased  Defense  Readiness  Status 
(8)  Reserve  Augmentation  Status 


A  chapter  of  the  instruction  is  devoted  to  each  situation. 
Details  for  the  particular  data  sets  which  coirprise  the 
situation  and  the  reporting  requirements  for  each  are 
provided.  Review  of  the  data  set  summaries  for  each 
situation  reveals  that  certain  data  sets  are  common  tc  all 
situations.  For  this  reason  an  additional  area,  (0)  Local 
Information,  was  formed  to  group  the  common  data  sets  and 
other  message  related  items.  A  final  situation,  (3)  Type 
Commander  Reports,  was  created  to  separate  items  which  would 
he  designated  to  be  reported  by  higher  authority. 

Three  areas  were  selected  to  demonstrate  the 
implementation  approach.  LOCAL  Information  was  selected  as 
it  provides  elements  common  to  any  NRS  message. 
ADMINISTRATIVE  Status  was  selected  for  the  relative 
simplicity  of  the  data  sets.  AIRCRAFT  and  CREWS  Status  was 
selected  for  the  complex  inter-relationships  between  the 
data  components.  The  selected  situations  and  supporting  data 
sets/information  are  detailed  in  Table  3-1. 


B.  PROGRAM  ACTIONS 

Once  the  logical  grouping  of  data  had  been  confirmed  it 
was  necessary  to  to  establish  the  set  of  program  actions 
which  could  be  performed  on  the  data. 
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1 .  ACTION  -1-  :  Provide  a  Draft  Document 

The  drafting  document  supports  four  requirements: 

—  It  is  the  drafter's  worksheet  and  therefore  for  each 
data  set  provides;  plain  language  descriptions  of  all 
fields,  field  length  limitations,  the  source  of 
information  (governing  directives  or  pertinent  table 
references)  and  the  data  set  reporting  requirements. 

—  It  is  the  interface  between  the  drafter  and  the  system 
operator.  Information  presented  conforms  directly  to 
the  screen  displays. 

—  It  is  the  means  of  reviewing  all  information  as 
currently  reported.  Thus  each  data  set  or  item  of 
information  as  previously  transmitted  is  reproduced  in 
message  format. 

—  It  is  the  means  for  the  releaser  to  review  the  report 
with  minimal  reference  to  the  governing  instuctions. 
Therefore  it  contains  plain  language  definitions  and 
and  an  explanation  of  any  coded  items. 

Since  the  draft  document,  has  a  multiple  purpose  it  is 
necessary  for  the  system  operator  to  select  the  purpose  for 
which  the  document  is  required.  This  is  accomplished  by 
limiting  the  selection  to  forms  based  cn  previously 
transmitted  information  or  forms  based  on  the  current 
information,  prior  to  actual  message  transmittal.  The  system 
operator  also  selects  the  situation  for  which  draft 
information  Is  required  since,  in  general,  reports  ere 


prepared  for  particular  situation  and  do  not  require  the 
draft  information  available  for  other  situations. 

2 .  ACTION  i  Initiate  a  New  Report 

This  selection  allows  the  program  to  reset  that 
information  which  is  variable  for  the  individual  occurence 
of  a  report.  Only  one  UNITREP  may  be  in  work  at  a  time. 
However,  in  a  full  ROS  including  such  items  as  CASREPs, 
the  capability  to  concurrently  prepare  several  reports 
should  be  provided. 

3.  ACTION  -3-  :  Modify  Report  Information 

This  action  allows  the  system  operator  to  change, 
add  or  delete  information  as  required  when  preparing  a 
report.  The  system  operator  selects  the  situation  to  which 
the  report  information  applies  and  program  flow  is  directed 
to  the  subprograms  for  displaying  and  modifying  that  data. 

4.  ACTION  -4-  j  Print  Hard  Copy  r'essage  Format  Report 

To  satisfy  a  command's  archiving  requirements,  the 

system  provides  the  capability  of  producing  hard  copy  output 
of  either  the  current  message  (undergoing  preparation)  or 
back  messages  (via  either  serial  or  date-time  group 
reference).  The  information  in  back  messages  is  not 
alterable  by  the  system  operator.  A  choice  of  formats  (OCR 
and  fleet  broadcast)  is  allowed. 

5.  ACTION  Log  the  Report  as  Transmitted 

In  general  the  date-time  group  for  a  message  is  not 
assigned  until  transmittal.  When  the  date-time  group  is 


assigned  AND  provided  to  the  system,  report  data  is  file! 
for  possible  future  recall,  maintaining  a  serial/date-tire 
group  cross  reference. 

6.  ACTION  -€-  ^  Erase  the  Current  Report 

At  times  during  the  report  generation  cycle  (Figure 
3-2)  a  report  may  be  either  cancelled  or  so  severely  altered 
that  information  as  currently  provided  is  useless.  This 
action  allows  the  system  operator  to  'fall-back'  to  the 
period  before  the  report  was  initially  generated. 

7.  ACTION  -7-  :  Provide  Verification  Information 

The  NPS  requires  the  Fleet  Commanders  in  Chief 
(FITCINCs)  to  conduct  periodic  reviews  of  all  received  unit 
information  to  insure  current  and  accurate  data  is  being 
maintained  in  the  WWMCCS  database  [Ref.  10,  para.4.8dj .  This 
action  allows  all  information  as  currently  reported  by  the 
unit  to  be  printed  for  comparison  with  the  TLTCINC  feedback 
verification  message. 

8.  ACTION  y6-  _t  §uit 

This  action  allows  normal  termination  cf  the 
program,  maintaining  all  information  as  input  during  the 
terminal  session. 

C.  PROGRAM  DISPLAYS 


Once  the  system  operator  has  selected  to  modify 
information  for  a  particular  situation,  control  of  the 
program  passes  to  the  subprogram( sV  responsible  for  allowing 


Report  Generation  Cycle 


>   .  • 


modification  for  the  situation.  The  displays  are  grouped  in 
direct  correspondence  to  the  drafting  document  with  data  set 
naires  and  fields  notated  in  full  form  vice  abbreviation.  All 
displays  are  initially  menu  driven  (positioning  of  the 
cursor  determines  the  data  sets  to  be  selected  and  inputs 
allowed)  with  abbreviated  prompts  exhibited  tc  notify  the 
operator  of  legal  inputs.  Additional  E2LP  information  is 
available  for  many  items  by  typing  a  '?'  at  the  appropriate 
cursor  position.  Where  data  field  contents  are  limited  to 
only  a  few  specific  entries  tne  choice  is  by  menu  selection. 
Where  data  field  contents  are  ottained  from  a  table,  the 
table  is  cross  checked  to  allow  only  a  legal  taDle  value. 

(T~  AH  special  purpose  fields  (e.g.  date-time  groups,  lat/long 
positions^  are  checked.  All  numeric  fields  are  validated  and 

checked  for  relational  comparisons  if  required.  Eata  text 
entry  in  all  other  fields  is  limited  to  the  field  length  as 
established  by  the  instruction  [Bef.  12].  Characters  are 
automatically  limited  to  those  allowed  for  message 
transmission  codes  with  automatic  conversion  of  lower  case 
letters  to  upper  case.  The  cursor  automatically  moves  tc  the 
next  legal  position  when  a  selection  has  been  made,  the 
field  length  has  been  reached  or  the  operator  terminates 
data  entry  by  a  carriage  return  .  The  option  to  reselect 
items  of  the  current  display  is  provided  prior  to  continuing 
to  the  next  display.  Eisplay  formats  are  provided  in 
Appendix  A. 
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E.  EATA  STCRAGI 

All  UNITRIP  information  is  maintained  in  a  pair  of 
external  disk  files  (UNIT000A,  UNIT000E)  refered  to  as  the 
Workfile.  This  arrangement  allows  buffering  of  data  by 
report  in  the  event  of  hardware,  disk  or  software  failure. 

All  modifications  are  made  to  the  workfile.  When  a  report  is 
being  logged  as  transmitted  (nc  further  update  for  that 
serial  message  is  required)  ,  the  Workfile  is  copied  to  a 
separate  UNITRIP  files  storage  disk  inserted  in  tne 
microcomputer  3:  disk  drive.  The  filenames  UNITxxxA  and 
UNITxxxI,  where  xxx  represents  the  report  serial  number,  are 
used.  This  allows  the  data  to  be  recalled  for  verification 
or  message  copy  purposes.  The  Workfile  is  reset  as  required 
when  a  new  report  Is  Initiated. 
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IV.  irPLIKSNTATICN 


This  chapter  discusses  the  author's  ROS  UNITREP 
SUBSYSTEM  implementation  in  the  Ada  language.  A  review  of 
the  limitations  of  the  JANUS/AEA  subset,  a  program  overview 
and  a  discussion  of  the  the  various  components  are  provided. 
The  ROS  UNITREP  Operator's  Manual  {Appendix  A)  and  the  ROS 
ONITP.EP  COMPUTER  LISTING  (Appendix  C)  may  be  refered  to  for 
more  detailed  information. 

A.  ALA  SUBSET  RESTRICTIONS 

The  JANUS  subset  of  the  Ada  language  provides  many  of 
the  sophisticated  features  required  in  a  high  level 
language.  Lata  abstraction  and  stror.g  data  typing  allows  a 
clearly  readable  coding  style  with  the  ability  to  uncover 
and  correct  errors  during  compilation  vice  run  time.  The  Ada 
package  concept  allows  a  modularization  that  leads  to 
localized  and  easily  modifiable  code  which  can  be  altered 
without  serious  consequence  to  the  program  as  a  whole. 

However,  the  lofty  goals  of  the  Ada  language  do  not 
easily  lend  themselves  to  implementation  on  small  scale 
microcomputers.  Quoting  from  the  JANUS/AEA  Package  User 
Manual : 

"The  major  design  tradeoffs  in  Janus  were  power  versus 
simplicity.  A  major  effort  was  made  to  keep  the  Janus 
subset  as  small  as  reasonable.  This  was  done  in  order  to 
complement  yet  not  inhibit  the  ambitious  nature  of  Ada. 


Janus  was  designed  specifically  for  the  microcomputer 
environment .  Therefore,  every  Ada  construct  which  would 
have  required  eicessive  maculae  resources  was  rejectee. 
The"  complicated  features  of  Ada  that  are  viaole  only  for 
large  computers,  tt  e.g.  parallel  processing,  are  not 
included  In  Janus."  [Ref.  9:  p.l-lj 

It  is  not  the  intent  to  review  all  JANUS  deficiencies  here;. 

A  complete  list  is  available  in  the  JANUS /ADA  PACKAGE  USER 

MANUAL  [Ref.  9s  App.  L] .  Those  items  which  detracted  from 

the  ROS  UNITREP  Implementation  will  be  discussed. 

1.  lack  of  a  Standard  I/O  ilnput/Outputj.  Package 

JANUS  implements  this  concept  through  the  use  of 

library  modules.  Four  of  these  library  modules  were  used  by 

the  program.  The  subprograms  which  are  provided  by  these 
modules  are  listed  in  Appendix  3.  Unfortunately  many  Ada  I/O 
subprograms  were  not  Implemented,  particularly  those 

addressing  full  screen  console  operation  and  printer  usage. 
This  required  creation  of  the  necessary  functions. 

2 .  Lack  of  Aggregates 

Aggregates  are  written  forms  denoting  a  composite 
value,  essentially  being  record  and  array  literals.  Without 
aggregates  all  composite  variables  required  initialization 
at  run  time  in  the  package  body.  This  detracts  from 

localizing  such  items  as  constant  strings  with  their  value 
at  the  declaration. 

3 .  Type  Limitations 

The  JANUS  compiler  maintains  internal  tables  for 
certain  objects  encountered  during  compilation.  A  maximum  of 


fir- 


ninety  ( S0 )  different  data  types  rray  be  specified.  As  all 
DNITREP  data  sets  and  many  of  their  components  were 
represented  as  serarate  types,  the  limit  was  exceeded.  This 
necessitated  modification  of  the  program  and  data  structure 
into  modules  where  the  total  number  of  types,  for  each 
module,  were  within  limits. 

4.  lack  of  Exception  Handling 

This  Ada  feature  allows  a  program  tc  react  to  an 
event  which  causes  suspension  of  normal  program  operation. 
Without  the  built-in  exception  handling  capability  all 
keyboard  input  was  character  and  string  buffered  and  the 
content  lnterpeted  in  separate  subprograms.  Subtyping  could 
not  be  usefully  employed  since  this  constraint_er ror  type  of 
exception  resulted  in  program  aborts. 

5.  lack  of  an  Overlay  Capability 

In  the  microcomputer  environment  the  utilization  of 
overlays  for  medium  and  large  programs  is  a  necessity.  The 
lack  of  overlays  required  physically  dividing  the  program 
into  four  independent  executable  files  and  introduced  the 
need  for  communication  and  control  components.  Since  the 
program  is  structured  with  a  large  set  of  supporting 
subprograms  (24  kilobytes)  this  information  must  be 
reproduced  for  each  module.  Therefore  72  kilobytes  of 
secondary  storage  are  duplicated  code.  Additional  disk 
access  time  is  required  to  load  the  larger  program  modules 
in  comparison  to  what  would  be  much  smaller  overlays. 
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6.  lack  of  Random  Access  iEeadZWr.it gj  External  Eileg 

In  JANUS  external  files  can  only  be  read  or  written. 
Such  restrictions  require  the  entire  external  file  to  be 
loaded  into  main  memory  for  the  rrodif icat ion  of  a  single 
component,  even  if  the  file  is  static  in  coirposition.  For 
large  external  files  the  impact  on  frain  memory  and  program 
site  is  prohibitive.  This  also  prevents  the  use  of  dynamic 
files,  which  resulted  in  the  inability  to  provide  the  user 
with  an  on  line  file  update  capability  for  maintaining 
certain  tabularized  data. 

7 .  Implement  at  ion  of  the  Type  String 

JANUS  uses  dynamic  strings  and  supports  full  string 
operations.  Although  not  detrimental  for  the  purposes  of 
this  program,  portability  and  compatablllty  problems  may 
occur  with  other  kd a  compilers. 

B.  PROGRAM  OVERVIEW 

Prior  to  reviewing  the  program,  an  explanation  of  terms 
used  in  the  discussion  is  necessary: 

—  subprogram:  a  procedure  or  function. 

—  package:  the  Ada  construct  for  the  logical  grouping  of 
information . 


—  package  specification:  that  part  of  a  package  which 
contains  the  declarations  of  types,  constants, 
variables  and  visible  subprograms. 

—  package  body:  that  par.  of  a  package  which  contains  the 
information  necessary  to  support  the  subprograms 
declared  in  the  package  specification. 


—  module:  the  executable  code  (.COP  disk  file)  which 
results  when  packages  are  compiled  and  linked.  The 
module  name  is  that  of  the  highest  level  package. 

The  lowest  level  in  the  program  hierarchy  consists  of 
the  basic  program  support  features  which  provide  console  and 
printer  ccmmunicat ion ,  global  information,  program  module 
communication  and  utility  subprograms.  This  level  consists 
of  the  PACKAGES  consio .printio ,urglo bal  and  urutil  as  shown 
in  figure  4-1. 

The  'JMTPfP  data  structure  definition  is  divided  into 
two  components  by  PACKAGES  unitrepA  and  unltrepB.  The 
respective  subcomponents  (PACKAGES  urglbl,  urlccalA, 
uradminB  and  urairB)  and  structure  are  shown  in  Figure  4-2. 

PACKAGE  unitrep  provides  tne  main  selection  subprograms 
for  choosing  and  processing  the  desired  program  actions  and 
areas,  as  well  as  the  constructs  for  directing  program  flow 
to  the  other  control  packages  (unitrepl,  unitrep2, 
unitrep3).  PACKAGE  unitrepl  also  interfaces  to  the  LOCAL 
Information  subprograms  contained  in  PACKAGES  urlocal  and 
urlocall.  modules  unitrep  and  unitrepl  operate  on  data  as 
defined  by  unitrepA.  File  checking  and  handling  subprograms 
for  the  'A'  structure  are  contained  In  PACKAGE  fllerA.  The 
FACKAGE  inltialA  Is  used  to  set  the  contents  of  the  external 
disk  workflle  (UNIT000A)  as  required  for  initial  program 
operation,  (Figure  4-3) 


PACKAGE  unltrep2  controls  access  to  all  ArmiNlSTF.ATIVI 
processing  subprograms  (PACKAGE  uradmin)  as  well  as  all  AIS 
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Figure  4-1.  Basic  Support  Organization 


Figure  4-3.  Program  Structure  for  'A'  Data 


PACKAGE 


Figure  4-4.  Program  Structure  for  'B*  Data 


except 


those 


processing  subprograms  (PACKAGE  urair ) 
concerning  the  modification  of  AIR  information.  PACKAGE 
unitrepS  is  the  interface  to  the  AIP.  information 
modification  subprograms  as  contained  in  PACKAGES  urairl, 
urair2,  urair3.  Modules  unitrep2  and  unitrep3  operate  on  the 
'B'  data  structure.  File  operations  are  contained  in  PACKAGE 
filerB.  FACKAGE  initials  sets  the  contents  of  the  external 
disk  wcrkfile  (UNITP00B)  as  required  for  intial  program 
operation.  (Figure  4-4) 


C.  BASIC  PROGRAM  SUFPCRT  COMPONENTS 

Four  common  packages  are  required  by  each  of  the  four 
program  modules  to  provide  the  basic  support  items.  Two  of 
the  packages  -  conslo  and  printio  -  are  designed  to  be 
customized  to  the  specific  hardware  configuration  of  the 
terminal  and  printer.  A  third  -  urglobal  -  provides  global 
information,  user  assistance  subprograms  and  module 
communication  information  to  control  program  flow.  The 
fourth  -  urutil  -  consists  of  routines  for  the  checking  of 
redundant  fields  and  higher  level,  general  subprograms. 
Initially  a  fifth  package  -  urtest  -  was  included  to  gather 
testirg  information  on  the  system.  Although  not  included  in 
the  final  product  it  will  be  discussed. 

1 .  Console  Package  (conslo } 


This  package  satisfies  three  purposes:  terminal 
customization,  keyboard  character  conversion  and  screen 


oriented  (x/y)  addressing  procedures  for  data  input  and 
output . 

a.  Terminal  Customization 

In  general,  all  terminals  have  a  specific 
interpetation  of  the  American  Standard  Code  for  Information 
Interchange  (ASCII)  character  coaes  in  relation  to  terminal 
functioning  (e.g.  cursor  positioning,  screen  backspace, 
clear  screen).  Any  program  function  or  procedure  dependent 
upon  a  specific  interpetation  of  one  or  more  of  these  codes 
would  require  modification  for  the  specific  terminal.  This 
would  he  unsatisfactory  in  light  of  the  number  of  different 


terminals 

available 

and 

the  number  of  different 

subprograms 

used  to 

support 

the 

full  screen,  menu 

driven  user 

interface 

.  For  this 

reason  items  peculiar 

to  terminal 

functioning  are  hidden  from  the  program  in  the  consio 
package  tody.  For  localization  purposes  those  ASCII 
character  codes  which  have  accepted  meanings  (carriage 
return,  tell,  horizontal  tab)  are  declared  in  the  package 
specification,  while  non-standard  interpeta tions  are 
declared  in  the  package  body.  When  customizing  to  a 
particular  terminal  only  those  items  in  the  package  body 
must  be  modified.  The  package  body  is  then  recompiled  (vice 
recompiling  the  entire  program)  and  the  four  modules  are 
relinked.  An  example  of  the  differences  is  between  two 
terminals  is  given  in  Table  4-1.  Two  procedures  directly 
relate  to  terminal  customization: 
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—  FK0C1IUP.I  gotoxy  (x  ,y  :  IN  INTEGER); 

The  program  is  coded  on  the  assumption  that  it  will  be 
implemented  on  a  terminal  allowing  at  least  23  rows 
(numbered  3-22)  and  79  columns  (numbered  3-78).  This 
meets  the  standard  24  row  by  80  column  display  with  a 
small  safety  margin.  This  procedure  modifies  the  linear 
representation  used  in  the  program  (x  -  column,  y  -  row) 
to  that  set  of  character  codes  required  by  the  terminal 
to  position  the  cursor.  The  conversion  algorithm  to  the 
correct  value  must  be  modified  for  the  specific  terminal, 
the  consio  package  tody  recompiled  and  the  four  control 
packages  (unitrep,  unitrepl,  unitrep2,  unitrepd)  relinked 
prior  to  distribution  and  «use. 

—  PPOCEEUFE  clear_screen ; 

Sends  the  clear  and  home  character  to  the  terminal. 
Direct  modification  of  this  procedure  is  not  neccessary 
since  the  clear  screen  character  code  is  declared  at  the 
beginning  of  the  consio  package  body, 
b.  Character  Conversion 

The  output  of  the  program  is  a  message  for 
ready  for  transmission.  Therefore,  only  those  characters 
which  are  compatible  with  both  the  Cptical  Character  Header 


(OCF)  and 

five-level  (3AUE0T) 

character  codes 

are 

acceptable . 

Since  most  keyboards 

provide 

the  128 

ASCII 

characters , 

some  means  of  limiting 

to  these 

character 

sets 

—  FR0CEIU5E  baudot_convert  (char :  IN  OUT  CHARACTER); 

This  procedure  is  hidden  from  the  program  in  the  consio 
package  body  and  may  be  modified  to  any  desired  character 
set.  No  action  is  taken  on  control  characters  (ASCII 
lecimal  0-31)  with  the  exception  of  ASCII  3,  Control-C, 
which  is  interpeted  to  be  a  user  commanded  program  abort, 
and  ASCII  9,  tab,  whicn  is  converted  to  an  'X'  character 
to  allow  the  tab  key  to  be  used  in  menu  selection  func¬ 
tions.  All  lower  case  letters  are  automatically  converted 


to  upper 

case 

.  The 

set  of 

all 

allowable 

;  characters  is 

• 

• 

0  12  3 

4  t 

e  ?  8 

9  A  B 

C  D  E 

F  G  E  I 

J  JL  L  M  N  0  P 

0  R  S  T 

U  V 

W  X  Y 

1-1 

:  $ 

&  #  '  ( 

).,;/'* 

space 

Any  other 

character 

input 

from  t 

;he  keyboard 

is 

automatically 

converted 

to 

ASCII  0 

and  ignored 

i  n 

processing. 

The 

operato 

r  is 

notified 

.  by  an  aural 

tone 

that  the 

depressed 

key  i  s 

unac 

ceptable. 

c . 

Screen  Oriented 

Input 

-Output  F 

'rocedures 

The 

decl 

sion  to  use 

a  full  s 

screen  format 

and 

menu  selection  required  a  complete  range  of  screen  oriented 

subprograms.  The  majority  of  the  subprograms  in  this  class 

can  be  identified  by  the  'xy'  in  the  subprogram  name. 

—  PROCEDURE  getxy  immediate(x,y :  IN  INTEGER; 

char:  OUT  CHARACTER); 

This  procedure  is  used  to  character  buffer  all  data  input 
and  during  menu  selection.  The  cursor  is  positioned  to 


the  indicates  coordinates  (PROCEDURE  gotoxy)  and  exactly 

one  keyboard  input  is  read  and  converted  to  an  acceptable 

character,  'char'  (PROCEDURE  baudot_convert)  . 

PROCEIURE  getxy(x,y:  IN  INTEGER; 

temp:  OUT  STRING? 
f ield_length :  IN  INTEGER); 

This  procedure  builds  a  string,  'teirp',  character  by 
character  (PROCEIURE  getxy_inr[redi at e )  ,  operating  on  each 
character  as  received.  All  ASCII  0  characters  are  ignored 
and  on  screen  backspacing  and  deletion  are  allowed.  The 
sire  of  the  string  is  automatically  limited  to 
'field_length'  characters.  Keyboard  input  is  terminated 
when  receiving  c  carriage  return  or  upon  reaching  the 
field  length.  The  string  is  then  stripped  of  any  trailing 
blanks  which  may  have  been  entered.  The  string  is  then 
returned  to  the  celling  subprogram  for  use. 

JUNCTION  mark(x,y:  INTEGER)  RETURN  BOOLEAN? 

This  function  is  used  in  menu  selection  areas  where  a 


boolean  value  is  required  by  the  program.  The  function 
accepts  a  keyboard  input  (PROCEDURE  getxy_immediate)  and 
determines  if  it  meets  the  requirements  used  to  indicate 
a  mark.  TRUE  is  returned  if  an  'X'  or  tab  key  has  been 
depressed,  FALSE  is  returned  if  the  carriage  return  or 
space  tar  have  been  depressed.  If  one  cf  these  four  keys 
was  not  selected  the  input  is  ignored  and  the  user 
notified  by  an  aural  tone  to  reselect. 


—  PROCEDURE  putxy(x,y :  IN  INTEGER ? 

teirp:  IN  STRING); 

This  procedure  puts  the  contents  of  the  input  variable 
'temp'  at  the  indicated  coordinates  (PROCEDURE  gotoxy). 

~  PROCEDURE  clear_field(x,y,len:  IN  INTEGER); 

This  procedure  is  used  to  erase  the  entire  contents  of  a 
data  field  at  the  Indicated  coordinates  (PROCEDURE 
gotoxy).  This  applies  only  to  the  terminal  display,  not 
the  actual  data  field  variable. 

2.  Printer  Fackage  iprintioj 

The  printer  package  supports  the  prograir 
customization  to  a  particular  printer  and  the  setting  of 
several  printed  copy  formats. 

a.  Printer  Customization 

Since  a  continuous  page  printer  was  used,  only 
printer  enatling/disabling  and  page  ejection  mechanisms  were 
required  to  be  constructed. 

—  PROCEDURE  printer_on;  PROCEDURE  printer_off; 

JANUS/ADA  communicates  through  the  standard  CP/M-8C 
filenames  for  input/ouput  devices.  The  measures  described 
in  the  manual  using  the  1ST:  device  were  followed  [REF. 
S:  p.  Z-5]  . 

—  PROCEDURE  new_?agej 

Although  a  standard  ADA  construct,  this  procedure  was  not 
available  in  the  JANUS/ADA  subset.  It  was  simulated  by 
.  putting  the  form-feed  character  (ASCII  Decimal  12)  to  the 


CP/I*  1ST:  device.  The  page_eject  constant  is  nidder.  in 
the  printio  package  body  to  be  easily  modifiable, 
b.  Output  Formats 

Three  output  forrrdts  were  selected  for 
demonstration  purposes:  message  (msg),  which  simulates  the 
♦"ormat  received  during  fleet  broadcasts,  Optical  Cnaracter 
Header  (ocr),  which  is  used  for  message  preparation,'  text 
(text),  which  is  used  to  prepare  printed  data  not  message 
oriented. 

—  TIPI  format  IS  (msg,oc r , text ) 

PROCEDURE  set_format (format_type:  IN  format) 

The  various  parameters  for  each  format  are  listei  in 
Table  4-2.  Formats  are  set  either  by  default  or,  *here 
applicable,  by  the  operator  through  menu  selection  op¬ 
tions.  The  procedure  controls  the  actual  parameters  and 
is  hidden  within  the  printio  package  body.  It  is  adjust¬ 
able  to  any  format  by  variation  of  the  format  parameters. 

—  PROCEDURE  put_printer  (content :  IN  STRING),' 

Once  the  format  is  selected  ail  printer  directed  output 
is  passed  throgh  this  procedure.  In  addition  to  writing 
to  the  printer  the  proper  format  is  maintained  by  adjus¬ 
ting  header  lines,  line  spacing,  margins  and  page  ejects. 
The  line  count  is  adjusted  at  each  call  to  new_page. 

3.  Global  Package  jurglo tal_2 

The  global  package  provides  the  declarations  of 
global  types,  constants  and  variables,  tne  program  status 


»->  UISH(OS\ 

H  U  J  CO  Z 

(U 
£-1 


in 

; 

c 

£h 

Z 

o 

««!  as 

at  o>  cw  to  at  z 

*fc 

z:  c_> 

»-i  03  Z 

4-> 

a?  o 

z 

V 

o 

s 

o 

fc 

i-t 

<fc 

o 

0t 

ffc 

V3 

fc 

OJ 

«-> 

01 

at 

fc, 

sc 

: 

0 

tt 

fc 

to 

^  OJ  at 

TJ 

to 

; 

fc 

at 

z. 

TJ 

fc 

(-4 

o 

C*4 


cy 

i 

at 

H 

X> 

•o 

E* 


at 

i— t 

sc 

o 

<t>  -O 

XJ 

P-«-» 

m  fc 

ISC 

at  >, 

C  C  SC  to 

u  to 

h  oj  n  (u 

— - 

VJ 

c 

cu 

as 

to  IO  *4 

to  to 

t»i 

KJ  0J  H)  H 

■ —  c 

e-» 

r  c  o.  i 

”0 

tat 

(ft  fc 

a  fc 

3l 

hh  i  at  ** 

< 

l  1  at  n 

*0  1 

OS 

W  H  c  -o 

t-  T3 

< 

itj  -o  *h  at 

t X 3  C 

(fc 

C  fc  H  X! 

&  Oi 

58 


i 


structure  for  program  {nodule  communication,  general  use 
subprograms  and  user  assistance  subprograms, 
a.  Global  Teclaratiocs 

The  package  specification  details  the  types, 
constants  and  variables  which  may  be  accessed  by  all  higher 
levels  of  the  program.  Common  use  temporary  variable 
identifiers  for  the  specific  types  INTEGER,  STRING, 
CHARACTER,  BOOLEAN  and  FILE  are  listed  here  to  maintain 
uniformity  of  reference  throughout  the  program.  Constant 
characters  are  used  in  case  statements  and  equality 
comparisions  -  letters  are  recognized  by  the  lower  case 
representation  of  the  character  (e.g.  'a'  for  'A ' )  while 

other  characters  are  represented  by  plain  english  (e.g. 


space  for 


}.  Constant  strings  (of  length  one)  are 


recognized  by  the  '_mcrk'  suffix  (e.g.  'a_mark'  for  "a")  or 
plain  english  (e.g.  'dash'  for  String  constants  are 
initialized  in  the  package  body  as  JANUS /ALA  does  not  allow 
the  use  of  aggregates  in  the  package  specification. 

The  eight  designated  program  actions  are  carried 
as  both  a  type  ('action':  draft,  neww,  print,  etc.)  and  an 
array  of  booleans  ( 'action_is ' 5  since  JANUS/ADA  does  not 
provide  for  the  writing  to  storage  of  enumeration  types 
(other  than  boolean).  The  ten  program  areas,  consisting  of 
the  eight  CMTREP  situations,  the  LOCAL  Information  area  and 
the  TYPE  CCPKANDER  report  section  are  similarly  represented 


('area':  local,  air,  admin,  etc.J'area  is'). 


b.  Program  Module  Communication 

Since  the  program  is  structured  in  multiple 
modules,  some  information  passing  is  necessary  to  maintain 
program  control  without  requiring  redundant  user 
interaction.  This  information  is  contained  within  the 
variable  'program'  whose  structure  is  the  type 
'program_status ' .  An  explanation  of  each  component  of 
program  follows. 

—  unit:  TIPS  unit_type  IS 

(ship, submariae,air_unit .shore, other ) 

This  item  is  used  to  distinguish  the  reporting 
requi rementti  of  certain  data  sets  (e.g.  only  ships  and 
submarines  are  RKUIRED  to  report  their  positions  (POSIT 
set),  only  ships  and  submarines  are  allowed  to  report  the 
physician  status  (fEIIC  set)  ).  This  allows  the  program 
Internally  to  required  or  disregard  these  fields.  'Unit' 
is  set  in  PACKAGE  urlocal,  PROCEDURE  process_locai_ 
in  frequent . 

—  initial_entry :  BOOLEAN 

This  item  enables  the  Sign  Cn  display  screen.  It  is 
reset  in  PACKAGE  unitrep  luring  the  initial  execution  of 
the  main  program  and  set  when  the  user  elects  to  quit 
the  system  in  PACKAGE  unitrep,  PROCEDURE  process_action. 

—  print_trailer :  BOOLEAN 

This  item  Is  used  by  PACKAGE  urlocal,  PROCEDURE 
print_msg,  to  determine  if  message  trailing  items  (RMKS 


and  ICI AS  delta  sets)  are  to  be  printed.  This  sequences 
the  proper  printing  order.  It  is  set  in  PACKAGE  unitrep 
after  sign  on  and  reset  in  PACKAGE  unitrep  when  action 
-8-  (quit)  is  selected. 

—  rressage_  transmitted  :  3C0LEAN 

This  item  is  used  by  PACKAGE  urair.  FUNCTION 
priat_with_delete  to  determine  when  a  deleted  data  set  is 
required  to  be  printed  (Figure  4-5).  It  is  set  in  PACKAGE 
unitrep,  PROCIEURE  process_action  when  a  iressage  is 
logged  as  transmitted  (actlor  -5-). 

—  current_act ion  :  action_state 

This  item  communicates  the  proper  action  to  each  program 

nr 

module.  It  is  set  in  PACKAGE  unitrep.  Procedure 
choose_acti or . 

—  current_area :  area_state 

This  item  is  used  by  the  various  control  packages  to 
direct  program  flow  only  to  the  user  selected  areas.  It 
is  set  in  PACKAGE  unitrep,  PRCCEDURE  choose_areas . 

—  current_format  :  format_state 

This  item  is  set  either  by  default  of  through  user 
selection  in  PACKAGE  unitrep,  PRCCEEURE  choose_actlon , 
and  maintains  the  proper  format  during  a  print  cycle. 

—  print lrg_line:  INTEGER 

This  item  is  set  by  the  variable  line_count  in  PACKAGE 
printio.  It  maintains  the  value  of  the  line  currently 


ei 


TYPE  TYPE  DATA  MESSAGE  LOG  PRINT 

ACTION?  MODIFICATION?  STATUS?  REQUIRED? 


PRINT 


CHANGE’ 


-T  ran  salt  tec*.' 
*P  ending - 


Tra  .nsiri  t  ted 

Pending - 

Transri  tted 
Pendi  ng - 


YES 


YES 


YES 

■YES 

NO 

•NC 


DRAFT 


CHANGE - 

- ra  ns  nit  ted - 

- ►YES 

fPT  ■pnvp 

-  -  HA 

. .  V 

none - 

- ►Transmitted - 

—YES 

Figure  4-5.  Data  Set  Frint  Decision  Tree 


being  printed  when  switching  tetween  modules  luring  any 
action  which  requires  printed  output. 

--  workfile:  STRING(14) 

This  item  holds  the  name  of  the  current  data  structure  on 
which  the  program  is  operating  and  is  set  in  PACKAGE 
unltrep,  PROCEDURE  process_act ion . 

The  program  status  information  is  stored  at  the  termination 
of  any  module  and  is  loaded  at  the  beginning  of  execution  of 
any  module  (see  PROGRAM  CONTROL  COMPONENTS), 
c.  General  Use  Subprograms 

Subprograms  in  this  grouping  are  used  throughout 
the  program  to  support  other,  more  complicated,  constructs. 

—  PROCEDURE  "border;  provides  the  display  screen  outline 

—  PROCEDURE  process_comment(data_set :  IN  STRING; 

comment:  IN  CUT  comment_set ) ; 

This  procedure  provides  screen  processing  of 
amplification  (AMFN)  and  remarks  (RMKS)  data  sets.  The 
content  of  'comment_set '  is  described  under  PROGRAM  LATA 
COMPONENTS  (urglbl).  Comments  are  processed  as  external 
files  in  order  to  reduce  data  storage  requirements.  These 
free  text  files  are  purged  once  a  message  has  been  logged 
as  transmitted.  If  a  file  has  been  created  previously, 
the  contents  are  loaded  and  displayed  (Figure  A-5). 
Otherwise  a  new  file  for  that  data  set  is  created  and  the 
user  enters  the  free  text  content.  When  the  user  has 
completed  the  initial  entry  of  data,  noted  by  reaching 


the  maximum  allowed  comment  lines  (10)  or  inputing  a 
carriage  return  on  a  blank  line,  the  option  is  presented 
to  line  edit,  erase  or  continue  with  the  program.  Once 
the  user  is  satisfied  with  the  free  text  the  program 
stores  the  content  in  a  file  on  the  A:  disk  with  a 
filename  of  'data_set '  and  a  filetype  of  ‘'.At'?"  (e.g. 
"POSIT. APP”) .  Remarks  are  processed  as  10  pages  of 
comments  to  allow  100  total  lines.  In  situations  where 
multiple  data  sets  are  possible  the  variable  'data_set' 
is  modified  at  the  point  of  the  procedure  call  to 
indicate  the  instance  of  the  'data_set'  with  integer 
suffixes  (e.g.  CREWSTAT  amplification,  'data_set'  := 
"CRVfSTA12”  where  'l'  indicates  the  first  aircraft  type 
and  ' c‘  indicates  at  the  second  location;  AIRAUTE 
amplification,  'data_set'  "AlPATHl"  where  the  'l' 
indicates  the  first  aircraft  type). 

FROCETURE  print_comment ( data_set :  IN  STRING); 

This  procedure  is  used  to  print  the  content  of 
amplification  sets  only.  The  external  file, 
'data_set ' .AMP ,  is  located  and  "AMPN/”  is  appended  at 
the  beginning  of  the  first  line.  All  lines  are  printed 
and  the  end  of  data  delimiter  appended  to  the 
last  line.  Although  remarks  are  processed  as  multiple 
page  amplification  sets,  a  special  procedure  must  be  used 
for  printing  as  the  placement  of  the  delimeter  is 
variable  (see  PACKAGE  urlocal,  PROCEDURE  print  msg)  . 


—  JUNCTION  required  print  ( changed  iterr:  ECCLEAN) 

RETURN  BOOLEAN 

Eased  on  data  set  printing  requirements  (Figure  4-5), 
this  function  determines  if  a  non-deletable  data  set  is 
to  he  printed. 

d.  User  Assistance  Subprograms 
The  user  assistance  subprograms  notify  the  system 
operator  of  input  errors,  provide  additional  EELP 
information  or  provide  draft  document  information. 

--  FROCirUPI  errcrUumber:  IN  INTEGER); 

In  certain  situations  of  illegal  data  entry  or  where 
notification  to  the  user  of  certain  actions  required  to 
be  followed  are  necessary,  error  messages  are  used.  The 
error  number  is  set  at  the  procedure  call  and  the 
external  EPRI^SG  file  is  accessed.  The  required  'number' 
of  lines  In  the  file  are  searched  and  the  appropriate 
error  message  is  dislayed  at  the  bottom  of  the  current 
screen  display  with  an  aural  tone.  The  procedure  waits 
for  a  user  input  before  clearing  the  error  message.  Error 
messages  are  contained  in  Table  4-3. 

—  PROCZIURE  help (dat  a_set :  IN  STRING); 

This  procedure  allows  the  user  to  obtain  upto  seventeen 
lines  of  information  pertaining  to  the  particular  item  at 
the  current  cursor  position.  When  the  user  enters  a 
question  mark  ('?')  at  a  valid  location  the  external 
EELP.TXT  file  is  accessed  and  a  search  made  for 
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20:  Originator  Address  is  a  rranddtory  iteir 

21:  Required  information  tor  a  classified  message 
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'data_set'.  Cnee  found  the  contents  of  the  file  are 
displayed  until  the  delimiter  (a  single  period  on  a  line) 
is  reached.  The  procedure  terminates  when  the  user  makes 
a  keyboard  entry  and  control  is  returned  to  the  calling 
subprogram  at  a  point  allowing  use  of  the  information 
viewed. 

PROCEDURE  view_table{  filename:  IN  STRING),* 

This  procedure  is  used  in  conjunction  with  the  help 
subprogram  when  the  data  field  item  under  enquiry  is 
contained  in  a  table  supplement  tc  the  instruction  for 
which  the  program  is  designed  [Ref.  10:  Tables  5-1  thru 
E-14] .  The  procedure  notifies  the  user  that  that  tabl a 
entries  are  available,  by  message  and  an  aural  tone, 
following  a  BZIP  request.  The  user  may  elect  to  view  or 
not  view  the  table.  If  the  decision  is  to  view,  the  table 
entries  are  displayed  seventeen  per  screen.  The  user  can 
exit  viewing  at  any  point  or  will  automat  leal iy  exit  at 
the  end  of  the  table.  Program  control  returns  at  a  point 
allowing  use  of  the  information. 

PROCEDURE  draft_ald(data_set:  IN  STRING),* 

This  procedure  provides  the  user  hard  copy  information  to 
assist  in  the  drafting  of  a  report.  The  information  is 
stored  in  an  external  file,  DRAFT.TXT ,  and  is 
automatically  accessed  during  draft  document  preparation. 
The  DRAFT.TXT  file  is  searched  for  'data_set'  and  all 
contents  until  the  delimiter  (a  single  period  on  a  line) 


are  printed.  A  sairple  draft  document  prepared  using  the 
content  of  IRAFT.TXT  is  contained  in  Appendix  A. 

4.  utility  Package  iurutill 

The  utility  package  provides  several  subprograms 
which  are  also  of  general  use  but  which  were  separated  from 
PACKAGE  urglobal  for  their  similarities. 

—  FROCIIUR1  verify  number (numter_of  digits:  IN  INTEGER; 

temp:  IN  OUT  STRING; 
success:  CUT  100LEAN; 
number:  CUT  INTEGER); 

The  necessity  of  string  buffering  the  input  (as  JANUS/AIA 
has  no  exception  handling  capability)  required  a 
capability  to  determine  if  certain  string  inputs  were 
numeric  in  nature  and  if  so  to  provide  tne  integer  value. 
This  procedure  checks  all  characters  of  the  string 
'temp',  insures  they  are  numeric  and  then  converts  the 
string  to  an  integer  value  which  is  returned  in  the 
variable  'number'.  If  'temp'  does  not  represent  a  number 
or  if  the  number  is  not  positive  and  in  range  (0  to 
( ie-**number_of_digits  )-l )  then  'success'  is  set  FALSE. 
Leading  spaces  within  the  string  are  converted  to  the 
zero  ('0')  character. 

—  FUNCTION  getxy  digit s (x ,y , number  of.digits:  INTEGER) 

RETURN  STRING? 

This  function  is  used  where  the  integer  value  of  the 
number  is  not  immediately  required  and  where  x/y 
addressing  is  prefered.  The  cursor  is  positioned  at  x,y 


and  a  maximium  of  'number_cf_digits'  characters  are 

accepted.  Input  is  terminated  on  a  carriage  return  of 

when  reaching  'number_of_dlgits ' .  Any  trailing  blanks  are 

stripped  and  the  string  is  sent  to  PROCEEURE 

verify_number  for  processing.  If  the  input  is  an  invalid 

number  the  user  is  notified  with  an  error  message  and  the 

sequence  is  repeated  within  the  function.  The  function 

terminates  when  a  set  of  numeric  characters  which  meet 

the  various  tests  is  processed.  That  set  of  numeric 

characters  is  then  returned  as  the  function  value. 

PROCEEURE  verify_dtg(dtg :  IN  CUT  STRING; 

success:  CUT  ECCIEAN); 

Error  checks  'dtg'  for  all  legal  date-time  groups.  If  an 

invalid  date-time  group  is  received  the  user  is  notified 

by  an  error  message  and  'success'  is  set  to  EALSE.  The 

date-time  group  template,  "ddhhmmZPMPyy"  is  returned 

after  the  user  clears  the  error  message. 

PROCEEURE  verify_lot_long(lat_long:  IN  OUT  STRING; 

success:  CUT  LCCLEAN); 

This  procedure  error  checks  latitude/longitude  position 
reports.  If  the  entered  'lat_long'  is  incorrect  the  user 
is  notified  by  ar.  error  message  and  'success'  is  set  to 
EALSE.  The  position  template,  "ddmmEC-dddmmEC"  is 
returned  when  the  error  message  has  been  cleared. 

EUNCTICN  checksum (temp:  STRING)  RETURN  INTEGER; 

This  function  calculates  the  checksum  for  a  string  of 
numeric  digits  and  returns  that  integer  value. 


—  JUNCTION  zero  pad(number  of  digits:  INTEGER; 

temp:  STRING)  RETURN  STRING; 

This  function  adds  character  zeroes  ('0')  to  the 
beginning  of  the  string  'temp'  if  required  to  fill  the 
string  out  to  'number_of_digits' .  It  is  used  to  maintain 
numerical  string  variables  of  consistent  field  widths. 

5.  Test  Package  lurtestj. 

This  package  was  initially  envisioned  as  a  means  of 
automatically  collecting  test  data  on  program  operation. 
This  includes  such  items  as  user  identification,  sign  on  and 
sign  off  times,  program  recognized  error  tabulations,  the 
number  of  help  accesses  required  and  a  method  of  gathering 
user  comments.  Use  of  this  package  was  discontinued  because 
the  lack  of  JANUS  /ADA  random  access  read-'wrlte  file 
procedures  required  separate  external  test  data  files  to  be 
generated  each  time  a  program  module  was  entered.  This 
produced  a  number  of  files  which  frequently  exceeded 
directory  space  during  program  operation  causing  program 
abort.  Elimination  of  this  package  increased  the  space 
available  in  main  memory  and  allowed  the  use  of  a  larger 
file  buffer  size  which  increased  file  handling  capabilities. 
References  to  the  test  procedures  remain  in  the  program 
listing  and  are  recognized  by  the  characters  " — which 
effectively  comment  out  all  calls  to  the  applicable 
subprograms . 


r.  PROGRAM  DATA  COMPONENTS 


The  program  uses  nested  Ada  record  types  to  define  the 
data  structure.  At  the  lowest  level  the  data  is  structured 
according  to  the  data  set  definitions  [Ref.  10:  pp.  11-5 
thru  11-4?].  The  type  identifier  consists  of  the  data  set 
narre  and  a  '_set'  suffix  (e.g.  'operation_set ' , 
'medic_set ' ) .  Each  component  of  this  record  represents  a 
data  field  of  the  data  set.  Delta  sets  which  are  conditional 
(i.e.  reported  only  when  necessary)  are  identified  by  a 
boolean  flag  ('change').  Data  sets  which  may  he  deleted  are 
identified  by  an  additional  boolean  flag  ('delete').  If  a 
data  set  can  be  amplified  the  record  contains  the  component 
'ampn'  which  is  defined  in  PACE AGE  urglbl. 

These  data  sets  are  then  grouped  in  another  record 
according  to  the  UNITREP  situation  to  which  they  apply  (e.g. 
'local_set ' ,  'air_set')  by  the  appropriate  package 
(urlocalA,  uradminR,  urair9).  These  composite  area  sets  are 
finally  grouped  in  the  'unitrep_set '  record  as  declared  in 
PACKAGES  unitrepA  and  unitrep3.  The  identifier  'u'  is  used 
in  both  packages  to  denote  the  unitrep  data  variable.  This 
allows  the  multiple  data  structures  to  be  collapsed  to  a 
single  data  structure  for  Ada  subsets  without  the  JANUS/ADA 
type  limitation. 

1.  I ree  Text  Data  lurglblj. 

The  NRS  instructions  allow  the  majority  of  NRS  data 
sets  to  be  amplified  by  using  the  free  text  set  'AMPN'.  An 
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amplification  set  consists  of  upto  10  lines  of  text,  69 
characters  per  line.  In  order  to  liirit  the  printed  line 
length  in  a  message  to  69,  the  program  constrains  the  free 
text  line  length  to  62  characters  (data  set  identifiers  and 
delimiters  account  for  the  other  ?  characters).  PACKAGE 
urglbl  consists  of  the  declarations  necessary  to  support  the 
'AKPN'  data  set.  As  the  actual  text  is  stored  in  an  external 
file  (see  PACKAGE  urglohal,  procedure  prccess_comrent )  the 
type  'comment_set ' ,  consists  of  only  a  flag  ('change')  and  a 
count  of  the  'number_of_lines '  in  the  set.  This  count  is 
used  when  processing  remarks  sets  (which  are  interpeted  as 
upto  10  pages  of  comments. 

2.  local.  Information  E^ta 

This  package  defines  those  data  items  necessary  for 
the  construction  of  any  NRS/UN ITREP  message.  Eata  sets 
included  in  'local_set'  are  generally  noted  as  mandatory  by 
the  instruction.  In  addition  to  the  data  sets,  type 
'message_set'  contains  information  relevant  to  the 
par-ticular  message  (e.g.  date-time  group,  precedence, 
classification,  declassification).  The  type  'status_set' 
maintains  the  items  used  in  the  message  identifier  line 
(MSGIE  or  UNITID) . 

3.  Administrative  Information  lata  luradminBJ 

PACKAGE  uradminB  contains  the  declarations  for  the 

types  used  in  preparation  of  administrative  information 


[Ref.  10:  pp. 4-2, 4-3].  These  sets  are  relatively  sin-pie  as 
no  deletions  or  complex  relationships  are  involved. 

4 .  Air  Information  Tata  XurairB} 

Aircraft  and  Crews  Status  information  [Ref.  10:  pp. 
€-e,e-7,e-e]  requires  a  much  more  complicated  structure.  The 
user  may  submit  a  variable  number  of  these  data  sets 
depending  on  the  type  aircraft  and  also  the  location  of  the 
aircraft.  Because  of  the  static  nature  of  the  data  structure 
several  design  restrictions  were  required.  In  examining  the 
air  data  sets  it  is  clear  that  the  aircraft  type  is  a 
requirement  of  all.  Therefore  a  set  number  of  aircraft  types 
is  required.  An  arbitrary  value  of  four  (4)  was  selected. 
Three  data  sets  (AIRSTAT,  CREWSTAT,  RECCN)  require  location 
information.  Again  arbitrarily  a  value  of  four  (4)  was 
selected.  The  location  information  is  a  subcomponent  of  the 
aircraft  type,  therefore  up  to  sixteen  (ie)  total  locations 
are  allowed.  The  structure  and  size  of  the  air_set  record  is 
more  clearly  displayed  in  Table  4-4.  The  size  of  the  data 
structure  became  relevant  because  of  the  the  storage 
required  in  main  memory  during  program  execution.  A  rough 
formula  for  determining  the  size  of  the  air  data  structure 
is: 

size  =  1.2  x  (3  +  'max_ac_types'  x 

(27  +  'max_locations '  x  14S)  ) 

'Max_ac_types '  and  'max_locat ions  '  are  declared  as  constants 
in  PACKAGE  urairE. 


airpn : 

nuirter  of  locations 
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5.  Composite  Eata  .(.ynitrepAj  yni t rep3l 

PACKAGE  unitrepA  consists  of  only  the  LOCAL 
Structure  define  in  PACKAGE  urlocalA.  PACKAGE  unitrepl 
consists  of  both  the  AEMINISTRATIVE  and  AIR  structures  from 
PACKAGES  uradminB  and  uralrB  respectively. 

E.  PROGRAM  CONTROL  COMPONENTS 

Program  flow  is  directed  according  to  the  actions  and 
areas  which  are  selected  by  the  operator.  Without  an  overlay 
capability,  as  the  prograrr  size  expanded  it  was  necessary  to 
physically  separate  executable  portions  of  the  program  to 
remain  within  main  memory  space  limitations  (64K).  The 
program  control  components  are  responsible  for  operator 
selection  of  action,  selection  of  area(s)  when  required, 
direction  of  program  flew  to  the  necessary  modules  and  the 
data  file  mani pulat ions  required  for  support  of  the  selected 
action/ar ea (s ) . 

1.  Primary  Control  lunitrepj. 

FACKAGE  unitrep  provides  the  program  initial  (sign 
on)  operations,  the  selection  of  program  actions,  the 
necessary  contructs  for  supporting  the  selected  action  and 
the  selection  of  area(s)  when  required, 
a.  Program  Initial  Operations 

Subprograms  falling  into  this  category  are  only 


executed  at  the  beginning  of  the  terminal  session.  The  flag 
'initial_entry '  controls  their  execution. 
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—  PROCEIUBE  cbeck_required_f il es» 

This  procedure  checks  to  insure  that  all  main  (disk  drive 
A:)  files  necessary  to  sustain  program  operations  are 
present.  If  a  file  is  missing  the  program  notifies  the 
operator  as  to  the  filename  of  the  required  file  and 
terminates  execution. 

—  PROCEEUEE  sign_onJ 

This  procedure  displays  the  RCS  UNITES?  SUBSYSTEM  version 
number  and  the  serial  and  transmittal  status  of  the 
report  currently  in  the  workfile  (Figure  A-l ) . 
b.  Action  Evaluation  Subprograms 

As  discussed  in  Chapter  lit,  eight  program 
actions  are  permitted.  Figures  A-2  and  A~3  detail  the  screen 
displays  for  action  selection  and  the  required  additional 
prompts  respectively. 

—  PROCEIURE  choose_action(action_is:  CUT  act ion_stat e ) ; 

This  procedure  is  executed  whenever  control  is  passed  to 
PACKAGE  unitrep.  All  actions  are  mutually  exclusive.  The 
appropriate  component  of  'action_is'  is  set  to  TRUE. 

—  FROCEIURI  process_action(acti on_i s :  IN  OUT  action_state; 

succiss:  OUT  BOOLEAN); 

This  procedure  Insures  the  legality  and  proper  sequencing 
of  requested  actions  and  performs  the  preliminary 
operations  such  as  format  setting  and  data  filename 
selection  required  to  support  that  action.  It  consists  of 
a  multiple  IF-FLSIF. . .IIS IF-EISE-ENE  IF  construct  which 
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evaluates  the  selected  action.  The  output  of  this 
subprogram  is  used  to  drive  a  similar  construct  in  the 
operative  modules  for  processing  the  action  on  the  area 
data.  The  constraints  for  each  action  are: 

—  action_is  (draft ) :  The  drafting  document  may  be 

requested"  at  any  time  during  the  report  generation 
cycle.  Draft  information  is  normally  based  on  the  most 
recent  report  transmitted.  However,  if  a  report  is  i  1 
work  in  the  system  the  operator  may  request  draft 
information  based  on  the  pending  report.  This  option  is 
used  to  provide  the  releaser  the  detailed  information 
required  to  evaluate  the  report  with  minimal  referenc 
to  the  instruction.  Depending  on  operator  selection  th 
appropriate  data  file  is  determined. 

—  action_is (neww ) :  This  action  may  be  selected  only  if 
the  workfile  has  been  transmitted.  If  it  has  not  been 
transmitted  the  operator  is  notified  that  only  the 
modification,  erase  or  log  actions  are  allowed. 

—  action_is{modify) :  Modification  of  data  is  only 
allowed  for  reports  which  have  not  yet  been  logged  as 
transmitted.  If  the  report  in  the  workfile  has  beet- 
transmitted  the  user  is  notified  to  select  the  nev 
action  . 

—  action_is ( print ) :  The  print  action  may  be  requested 
at  any  time  during  the  report  generation  cycle.  The 
operator  may  request  a  print  of  either  the  pending  or  a 
past  message.  Past  messages  may  be  recalled  by  either 
serial  or  date-time  group.  Date-time  groups  are  cross 
referenced  to  the  appropriate  serial.  If  a  past 
message,  the  external  disk  data  files  are  checked  to 
insure  they  are  available.  If  they  are  not  the  operator 
is  notified.  Prior  to  printing  a  valid  message  the  user 
is  given  an  option  to  select  the  print  format. 

—  actlon_i s ( log)  :  Logging  a  message  as  transmitted  is 
only  allowed  when  the  report  in  the  workfile  has  not 
already  been  logged.  The  user  is  notified  if  there  is 
an  attempt  to  do  this.  When  a  valid  action  the  user  is 
prompted  for  the  transmittal  date-time  group.  This 
date-time  group  is  entered  with  the  report  serial 
number  in  an  external  cross  reference  file  iCRCSSREF). 
The  new  data  file  name,  3:UNITxxx  is  set  based  on  the 
report  serial  for  use  in  filing  the  renort  data  on  the 
disk. 
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—  action  is(erase):  The  erase  action  may  only  be 
selected  "when  the  report  in  the  workfile  has  not  teen 
transmitted.  The  program  erases  the  workfile  by  copying 
the  data  file  of  the  last  transmitted  report.  Therefore 
the  external  data  files  are  checked  to  insure  that 
those  required  are  present.  If  they  are  not,  the 
program  terminates,  notifying  the  operator  which  data 
file  is  required  on  the  2:  disk  drive. 

—  action  is(verify) :  Feedback  verification  may  be 
requested~at  any  time.  The  operator  is  prompted  for  the 
verification  serial  and  the  program  searches  the 
external  data  files  for  that  B:UNITxxx  required.  The 
operator  is  notified  if  the  data  file  is  net  present. 

—  act ion_is (quit ) :  This  action  terminates  the  program 
normally. 

c.  Area  Selection 

For  draft  or  mo  di  fy  actions  the  program  requires 
the  selection  of  the  appropriate  UNITRE?  situation  to  direct 
the  flow  to  the  appropriate  modules(s)  (Figure  A-4) .  Areas 
are  automatically  limited  to  those  implemented  (ICCAL, 
AEMIN ISTRATI VE ,  AIR)  with  a  reselectlon  capability  provided. 
PRCCEEURE  choose_area (area_is :  IN  OUT  area_state)  provides 
the  required  constructs. 

2 .  Module  Control  X  unitrepX?!  1 

The  main  body  of  PACKAGE  ^nitrep  and  FACKAGEs 
unitrepl,  unitrep2,  unitrep3  provide  the  program  control 
between  these  four  modules.  Program  flow  is  based  on  the 
relationships  between  the  selected  action,  the  selected 
area(s)  and  the  current  execution  point  of  the  program.  All 
information  is  contained  in  a  program  data  file  (STATUS) 
whose  structure  was  discussed  in  relation,  to  PACXAGE 


c; 


urglobal.  The  basic  operations,  other  than  control, 
supported  by  each  package  are: 

—  unitrep:  provides  action  and  area  selection  and  data 
file  definition. 

—  unitrepl:  provides  access  to  all  actions  on  the  LOCAL 
area  data. 

—  unitrep2:  provides  access  to  all  actions  on 

ADMINISTRATIVE  area  data  and  access  to  all  actions  on 
AIR  data  with  the  exception  of  modify. 

—  unitrep3:  provides  access  to  the  rrodif icetion  of  AIR 
area  data. 

The  flow  charts  of  Figures  4-6  thru  4-12  detail  control  of 


program,  direct  ion . 

3.  me  Handling  IfilerA/B) 

The  filer  packages  provide  for  checks  of  valid 
files,  controlled  program  termination,  worxfile  loading  and 
storage  and  program  status  file  loading  and  storage.  The 
major  difference  in  the  files  Is  that  filerA  manipulates 
files  for  the  'A'  data  structure  while  filers  manipulates 
files  for  the  '3'  data  structure. 

--  JUNCTION  valid_file( filename:  STRING)  RETURN  BOOLEAN; 

This  function  is  used  to  check  external  disk  files  for 
existence  to  avoid  abnormal  program  termination  if  an 
external  file  is  not  available.  If  a  portion  of  the 
'filename'  is  "UNIT”,  an  'A '  or  'R'  suffix  will  be 


appended  (to  distinguish  between  A  and  B  data  files). 


Action 


unitrep2  V  unitrep3 
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Figure  4-10.  PACKAGE  unitrep3  Control  Flow  Chart 


—  TIPI  reason_code  IS  (normal  ,fiie_error) 

—  PROCEDURE  terminate(reason :  IN  riason_ccde; 

filename  :  IN  STRING); 

The  terminate  procedure  is  used  for  two  reasons:  a  file 
error  or  a  normal  program  halt.  File  error  terminations 
are  used  only  when  external  files  are  mandatory  to 
continue  program  operation  and  are  not  available.  The 
procedure  provides  a  prompt  which  identifies  the:  required 
file  so  it  may  be  loaded  or  copied  to  the  proper  disk. 
Normal  termination  occurs  only  when  the  quit  action  is 
selected. 

--  PROCEDURE  load_file( filename:  IN  STRING); 

—  PROCEDURE  stcre_f il e ( f il ename :  IN  STRING), 

These  procedures  load/store  the  external  UNITRSP  data 
structure  (UNITxxxA/3)  from/to  secondary  storage  (disk 
drives)  to/from  main  memory. 

—  PROCEDURE  loadstatusJ 

—  PROCEDURE  store_status; 

These  procedures  load/store  the  current  program  state 
from/to  the  STATUS  disk  file.  Appropriate  statements  are 
executed  to  initialize  all  required  variables  for  proper 
program  operation. 

E.  PROGRAM  OPERATIVE  COMPONENTS 

The  operative  components  of  the  program  are  organized 
according  to  the  basic  UNITREP  situations  as  defined  in 
Chapter  III.  They  are  responsible  for  excecuting  the 
operator  selected  action  for  the  particular  area  data.  To 


iraintain  uniformity,  common  constructs  were  applied  in  the 
processing  of  these  actions.  However,-  each  area  also  has 
unique  requirements.  These  specific  points  of  interest  will 
be  discussed. 

1 .  Common  Elements 

There  are  basic  concepts  for  which  the 
implementation  is  similar,  if  not  identical,  for  ail 
packages.  The  general  interface  to  an  area  package  is 
PHOCirUPI  process_(area  name).  Within  this  subprogram  only 
those  statements  required  to  support  the  operator  selected 
action  are  executed.  An  I F-ELSIF. .  .ILSIF-FISE-EM1  IF 
construct,  identical  in  structure  to  that  of  the  program 
control  components,  is  used.  A  summary  of  the  these 
operations  follows. 

—  act ion_ls ( nevw  )  :  Besets  all  flags  used  to  indicate  a  data 
set  or  field  has  been  modified,  deletes  from  the  data 
structure  all  items  tagged  for  deletion  and  resets  the 
content  of  any  data  items  which  are  dependent  or.  the 
report  cccurence  (e.g.  message  serial,  precedence,  date¬ 
time  group) . 

—  action_is(log) :  Deletes  any  free  text  (  .AKP )  disk  files 
created  during  the  generation  of  the  report. 

—  action_is(print ) ,  act lon_i s ( draft ) ,  act ion_i s( verify)  : 
lor  each  data  set  in  the  area  a  check  is  made,  following 

the  decision  tree  of  Figure  4-5,  to  determine  if  the  data 
set  is  to  be  printed.  The  decision  tree  is  implemented  by 


three  functions:  PACKAGE  urelobal,  FUNCTION  requi red.  orir.  t 
is  use*  for  sets  which  can  net  be  deleted;  PACKAGE  urair . 
FUNCTIONS  print_vi  th.  de  lete  and  print  wc_delete  are  used,  for 
sets  which  rray  be  deleted.  If  the  set  is  tc  be  printed  the 
proper  format  is  provided.  If  amplification  comments  for  the 
set  exist  they  are  printed  immediately  fclicwinF  the  set 
'PACKAGE  ur2lotal .  FPCCSIUSE  print, commen t : .  When  requested, 
draft  information  is  provided  (PACKAGE  urelcbal,  PHCCFLLHZ 


■*  raft,  aid/. 

Cperaticns  for  actions  'erase'  and  'quit'  are  executed  in 
the  control  packages.  Modification  actions  are  customize*  tc 
the  particular  area  and  are  discussed  next. 

2.  C-enfral  Modification  denstru.-t* 

Modification  is  the.  only  action  which  requires 
considerable  operator  inputs.  As  the  desired  output  of  the 
system  is  an  error  free  message,  many  of  the  statements  are 
concerned  with  insuring  that  data  entered  is  valid.  Each 
area  medif if icaticn  section  is  divided  into  one  cr  more 
subprograms  which  process  the  information  for  a  specific 
area  display.  The  displays  are  directly  aliened  tc  the  draft 
document  the  system  generates.  The  common  elements  for  a 
display  modification  subprogram  are: 

—  PBOCFTUPF  ( area/su oarea  )_mask; 


This  procedure  generates  the  particular  ar  ea/subarea 
screen  display.  This  display  consists  of  all  uata  sets  cr 


information  items  for  the  area/subarea.  Corrrron  elements 


for  the  screen  display  are: 

—  lata  Set  Access  Point  [  '(  )'  J:  lach  data  set  or 
information  item  has  an  access  point  to  which  the  cursor 
positions  automatically.  Data  set  modification  proceeds 
in  sequence  from  the  top  of  the  display  to  the  bottom. 
The  operator  enters  one  of  a  defined  set  of  access  codes 
(keyboard  characters). 

—  lata  Set  Name:  This  is  the  plain  language  expansion  for 
the  data  set  identifier  (e.g.  'Physician  Status'  for  the 
mETIC  da  ta  set ) . 

—  lata  Set  Fields:  Each  field  of  the  data  set  is  annotated 
with  its  plain  language  meaning.  The  field  may  consist  of 

a  series  of  dashes  (' - ... - ')  o^  the  assigned  maximum 

field  Length,  a  template  (e.g.  'ddhhrnrnZm^myy  for  date¬ 
time  groups)  or  ,for  limited  selections,  a  series  of 
alternate  selection  points  l'(  )'  or  labeled  with 

the  corresponding  data  field  values.  —  On  Screen 
Prompts:  An  abbreviated  table  of  the  valid  access  codes 
allowed  for.  the  display. 

—  PROCEEURE  fill_ (area/subarea ) [_maskj  ; 

This  procedure  fills  in  the  corresponding  area/subarea 
display.  All  data  fields  are  annotated  with  the  current 
content  of  the  data  structure  for  that  data  set. 
Alternate  selection  points  are  marked  as  '{!)'.  Items 
changed  for  the  pending  report  are  marked  with  a  '*'  next 
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to  the  access  point.  Items  to  be  reported  as  deleted  are 
marked  with  a  'D '  next  to  the  access  point.  If  a  free 
text  set  (A.^PN)  has  been  created  for  the  data  set  an'  ' k' 
is  marked  next  to  the  ('APPN'  sets  apply  only  to  data 
sets  which  have  been  changed). 

Cnee  the  fill  subprogram  has  been  executed  the  system  is 
ready  to  process  the  operator  modifications  to  tne  current 
data  structure.  The  cursor  automatically  positions  to  the 
access  point  of  the  first  data  set  of  the  display.  Each  data 
set  Is  processed  through  a  LOOP  and  enclosed  CASE  construct. 
The  loop  is  labeled  Vodi?y_ (data  set  identifier):'.  The 
program  waits  for  the  operator  to  enter  the  access  code  and 
then  executes  the  statements  required: 

—  space  or  carriage  return:  Access  to  this  data  set  is  not 
desired.  Position  the  cursor  tc  the  next  data  set. 

—  'X'  or  tab:  This  code  allows  further  access  to  the  data 
fields  or  information  items  within  the  data  set.  If  the 
access  point  is  for  a  data  set  the  cursor  is  positioned 
to  modify  the  required  data  fields.  Data  field  entries 
are  checked  to  insure  they  properly  correspond  to  the 
data  field  items  (e.g.  numerics  only,  date-time  groups, 
free  text,  valid  tabularized  codes).  Improper  input 
generates  an  error  message.  Errors  are  required  to  be 
corrected  before  proceeding  with  the  modification.  If  the 
access  point  is  for  an  information  item  with  other 
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subdivisions,  further  access  is  granted,  to  select  the 
components  of  the  item  which  are  to  be  modified. 

'C':  Ihis  code  allows  access  to  a  data  field  for  change 
purposes.  It  is  used  for  data  sets  which  are  components 
of  an  information  item  accessed  by  an  'J'  which  may  also 
be  deleted.  A  check  is  first  made  to  insure  the  set  has 
not  been  marked  for  deletion.  If  data  change  is  allowed, 
similar  operations  to  insure  correctness  cf  data  input 
are  performed. 

'Jj' :  This  code  marks  a  set  to  be  reported  as  deleted.  A 
check  is  first  made  to  insure  the  se-:  has  not  teen 
changed  as  deletions  apply  only  to  previously  transmitted 
data  sets. 

'R ' :  This  code  allows  the  operator  to  reset  a  deletion 
flag  if  the  set  has  been  marked  for  deletion  incorrectly. 
'A':  This  code  allows  the  operator  to  create  a  free  text 
(AMPN)  set  to  provide  amplifying  comments  to  the  data 
set.  As  amplification  applies  only  to  a  data  set  which 
has  been  changed  a  check  is  made  to  Insure  this. 

This  code  will  permit  accessing  cf  HELP  information, 
if  it  exists,  for  the  data  set  through  PACKAGE  urglotal, 
PROCEDURE  help.  If  a  corresponding  look-up  table  is 
available  for  a  data  field  item  that  option  is  also 
provided  through  PACKAGE  urglotal,  PROCEDURE  view_table  . 
other  inputs:  All  other  operator  inputs  are  rejected  with 
an  error  message  to  reselect. 


The  enclosed  loop  structure  for  the  case  statement  allows 
for  multiple  operator  actions  on  the  same  data  set  without 
the  necessity  of  repositioning  the  cursor  manually  (e.g.  a 


EILF  access  followed  by  a  change  access  'X'  or  'C'  and 
modification  of  information,  followed  ty  an  amplification 
access  'A').  The  cursor  is  positioned  to  the  next  data  set 
access  point  only  when  the  user  has  indicated  that  access  to 
the  current  data  set  is  no  longer  desired  (by  space  or 
carriage  return) . 

When  all  data  sets  for  tae  display  h^ve  been 
sequentially  processed  the  operator  is  given  the  option  to 
reselect  the  current  display  (e.g.  if  an  error  has  been 
made)  or  to  continue  on  to  the  next  display. 

3 .  Local  Information  iurlocal*  urlccallj. 

Local  information  is  grouped  in  three  displays: 
Infrequently  Changed  Items  (Figure  k-6 ) ,  Message  Information 
(Figure  A-7)  and  Miscellaneous  Items  (Figure  A-S).  Within 
the  Miscellaneous  Information  the  Operation  (CPF?)  and 
Exercise  (EXER)  sets  are  mutually  exclusive.  This  exclusion 
is  enforced  by  an  IE-ELS IE-ELSE-ENE  I?  construct  to 
automatically  position  the  cursor  to  only  valid  access 
points  depending  on  the  current  data.  Position  (POSIT)  is  an 
example  of  a  set  which  is  partially  dependent  on  unit  type, 
required  ty  ships  and  submarines  tut  only  when  changed  for 
other  units.  The  IN  operation  on  the  enumeration  type 
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'unit_type'  Is  used  to  control  automatic  selection.  An 
additional  check  is  Fade  to  determine  if  the  unit  is 
'EXEMPT'  from  reporting  position.  The  reclassification 
(ECIAS)  set  is  dependent  on  message  classification.  Again 
the  access  point  is  controlled  by  an  II  IN  construct. 

4.  Administrative  Information  luradminj 

The  AEMINISTATIVE  Information  consists  of  a  single 
display  (Jigure  A-10).  The  Administrative  sets  are  not 
subject  to  deletion.  Within  the  display  only  the  Physician 
Status  (MIEIC)  set  is  dependent  (on  unit_type).  Access  to 
selection  is  controlled  by  by  an  IF-ELSE-INI  II  construct. 
The  unit  activity  code  (ACTIV)  is  cross  checked  [He?.  10: 

Table  3-el . 

5 .  Air  Information  {urair,  urai rl^  urair2x  urair3) 

As  opposed  to  the  LOCAL  and  ATM INISTRATIVE 
Situations,  the  AIRCRAFT  and  CRIWS  STATUS  data  sets  may  be 
submitted  a  number  of  different  times  depending  or.  the 
aircraft  type  and  location.  Additionally,  they  may  be 
deleted.  The  variable  number  of  sets  was  discussed  earlier 
in  this  chapter  in  relation  to  the  data  structure.  All 
actions  other  than  it  dify  are  processed  in  PACSAGI  urair. 
The  modification  of  air  information  is  accomplished  by  the 
other  three  packages.  Three  displays  are  used: 

—  Authorizations  (Figure  A-ll)  details  the  aircraft  type, 
aircraft  and  crews  authorized  and  the  number  of  different 
locations  at  which  the  aircraft  are  deployed. 
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-  location  (Figure  A-12)  lists  the  locations  ot  which  the 


type  aircraft  are  deployed. 

—  Status  (Figure  A-13)  lists  the  aircraft,  crews  and 
reconnaissance  capabilities  of  the  particular  type 
aircraft  at  the  selected  location. 

Access  to  a  particular  type  of  aircraft  listed  on  the 
Authorization  page  is  granted  by  an  'X' .  A  change  tc  the 
aircraft  type  is  permitted  by  the  'C'  access  code  (used  for 
error  correction  only).  The  aircraft  type  is  cross  checked 
[Ref.  10:  Table  B-2] .  Modifications  for  that  type  aircraft 
are  allowed  to  the  Aircraft  and  Crews  Authorizations  by  a 
'C',  'E'-'R',  and  'A'.  Display  of  the  locations  is  granted 

by  an  'X'.  Cn  the  location  page  a  pseudonym,  FOMIPLATF ,  is 
used  to  denote  the  location  as  reported  in  the  Position 
(PCS IT )  set.  Within  the  Status  page  all  status  information 
for  the  location  may  be  deleted  at  the  location  access  point 
or  items  may  be  deleted,  changed  or  amplified  individually. 
Component  fields  of  both  the  aircraft  status  (AIRSTAT)  and 
crews  status  (CREWSTAT)  are  sum/total  checked  (Possessed  := 
FMC+PMC+NMC,  Formed  >=  Ready).  Reconnaissance  Capabilities 
are  cross  checked  [Ref.  10:  Table  B-3]  .  As  the  entire  recon¬ 
naissance  capability  (RICCN)  set  must  be  reported  whenever 
changed,  individual  data  field  modiflfication  (addition  or 
removal)  is  permitted. 

A  degree  of  flexibility  is  built  into  the  system  by 
using  a  display  format  which  is  based  on  the  maximum 
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aircraft  types/locations  declared  in  the  data  structure 
definition.  This  will  allow  a  maximum  of  seven  aircraft 
types  and  seven  different  locations  for  each  type  without 
the  necessity  of  changing  the  screen  displays.  It  should  be 
noted  that  current  memory  size  (64K)  limits  these  values  to 
a  maximum  of  four  and  four  respectively.  However  a  different 
combination  of  types/locations  would  be  permissible  if  the 
present  limitation  { approximately  31)  for  air  data  was  not 
exceeded  (e.g.  2  types/?  locations,  6  types/2  locations, 

etc . ) . 

G.  MSCIILANECUS 

PACKAGES  initialA  and  intial3  are  used  to  set  the 
worhfile  (UNIT000A,  UNIT000E),  the  program  status  file 

(STATUS)  and  the  serial/date-tlme  group  cross  reference  file 
(CRCSSREF)  for  initial  program  operation.  They  would  net  be 
required  at  the  unit  level  as  these  files  would  be 
distributed  on  the  program  master  disit.  The  status  file  is 
set  for  normal  system  operations.  The  workfile  is  set  as: 
Message  Precedence  -  Priority 

Message  Classification  -  Confidential 
UNITRIF  serial  -  001 

ACTIV  -  OP  (General  Operations) 

MEIIC  -  ONBOARD 

REPCBG  -  CNO 


VERIFY 


VALID 


V.  CONCLUSIONS 


Limited  testing  of  the  ECS  UNITREP  SUBSYSTEM  was 
conducted  at  the  Naval  Postgraduate  School.  Test 
participants  were  of  the  mid-level  officer  grades  (0-2>/0-4) 
norirally  responsible  for  the  drafting  cf  the  UNITREP.  The 
test  consisted  of  simple  data  entry  from  the  drafting  form 
and  real-time  report  generation  during  which  the  test 
participants  used  the  built-in  help  facilities  without 
referencing  the  draft  document.  Seven  simulated  reports  were 
generated  by  each  participant  during  two  terminal  sessions. 
System  familiarization  required  approximately  forty  five 
minutes.  Refamiliarizat ion  time  was  minimal.  The 
participants  were  required  to  fill  in  the  system-provided 
draft  form  for  the  first  report  after  which  the  drafting  was 
optional.  As  experience  with  the  system  was  gained  the 
participants  tended  more  towards  real-time  report 
generation,  forgoing  use  of  the  draft  document.  Simple  data 
entry  after  the  drafting  of  the  report  required 
approximately  fifteen  minutes.  Real-time  report  generation 
required  approximately  thirty  five  minutes.  Mo  premature 
terminations  were  observed  during  the  tests. 

Eue  to  program  modularization,  d i sic  access  time  (during 
which  the  operator  must  wait)  is  sizable.  Each  module 
requires  approximately  one  minute  to  load  into  main  memory. 
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Thus,  four  minutes  during  each  modification  cycle  are 
operator  'dead  time'.  Printing  a  message  requires  two 
minutes?  the  draft  document  requires  five  minutes. 

Several  participant  suggestions  were  incorporated  during 
the  test  period  (e.g.  the  addition  of  the  '*'  to  the  screen 
display  to  note  an  item  change).  Modifications  were  easily 
accomplished  largely  due  to  the  uniformity  used  in  code 
expressions  and  the  localization  of  the  procedures.  No 
attempt  was  made  to  optimize  the  current  UNITRIP 
implementation.  There  remain  items  which,  if  revised,  would 
provide  more  efficient  operation  or  clearer  uniformity  (e.g. 
the  use  of  a  common  table  comparison  procedure).  Usi’-g  the 
techniques  developed  in  Chapter  III  It  should  be  possible  to 
implement  the  remainder  of  the  UNITREP  within  a  short  period 
of  time  and  apply  a  similar  methodology  to  the  otter  MBS 
reports.  However,  the  limitations  of  JANUS/ADA  (version 
1.4.5)  would  restrict  the  program  to  multiple  disK 
operation; . 

Many  additional  areas  for  increasing  the  system's 
flexibility  and/or  utility  remain  to  be  explored: 

—  The  creation  of  a  module  dedicated  to  the  preparation  of 
non-formatted  messages.  The  module  should  integrate  the 
heading  and  trailing  items  of  a  Joint  Messageform  (TI- 
173),  provide  for  a  page  printer,  page  alignment 


procedures  and  incorporate  a  full  screen  text  editor. 


Portions  of  the  module  should  be  accessible  to  the  ROS 
for  preparation  of  the  AMPN  and  BMXS  free  text  data  sets 
and  for  the  printing  of  the  message. 

Ixamination  of  alternate  methods  of  storing  the  program 
generated  data.  The  use  of  a  data  structure  based  upon 
static  record  types  is  inflexible.  A  better  method  would 
seem  to  be  writing  the  data  to  a  dish  file  in  the 
message  format  as  it  appears  on  the  printed  message  copy. 
Ixamination  of  the  feasibility  of  transfering  the  report 


information  to  the  message  communication  center  via  a 
network  system  or  via  dish  transfer.  Either  medium  is 
capable  of  compatibility  with  communications  equipment.  A 
special  purpose  module  colild  ce  developed  for  the  message 
center  to  Incorporate  items  required  for  broadcast  fe.g. 


prosigns,  serialization,  circuit  instructions,  conversion 
to  transmission  code,  special  formatting  requirements). 
The  necessity  of  punching  a  paper  tape  or  retyping  the 
information  on  a  video  display  terminal  (as  is  the 
current  practice)  would  be  eliminated  as  would  the 
possibility  of  Introducing  errors. 

Creation  of  a  master  design  program  to  assist  in  the 


as  the  data  set  identifier,  the  component  fields,  the 
type  and  specifications  of  data  entered  in  each  field 
(e.g.  numeric,  alphanumeric,  limited  selections,  table 
look-up,  field  length)  and  the  more  complex  dependencies 
between  data  sets.  Cne  cf  the  most  time  consuming  aspects 
of  developing  the  ’’hi TP. IP  SUISYSTEM  was  adjusting  screen 
formats  for  the  access  points,  data  sets  names  and  the 
data  set  components,  and  maintaining  proper  cursor 
positioning  when  executing  fill  and  modification 
subprograms  for  the  particular  display.  An  interactive 
facility  could  be  developed  to  integrate  the  formulation 
of  a  screen  display  with  the  required  system  operations 
on  the  data  set. 
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The  UNITREP  itself  proved  to  te  a  pivotal  message.  It's 
content,  especially  in  the  area  of  Unit  Combat  Readiness 
Assessment,  is  highly  dependent  on  information  available  and 
maintained  by  other  sources  (e.g.  Personnel  -  squadron 
roster,  CFNAVNCTE  1000/2;  fajor  Equipment  -  CASREPs ; 


Aircraft  Status  -  VIDS/tfAI 

system) .  While 

it 

is 

simple 

enough  to  create  a  program 

to  check  format 

and 

valid 

data 

type  entry,  to  develop  a 

system  to  sift 

the 

raw 

data 

necessary  to  calculate  a 

unit's  readiness 

is 

much 

more 

complex.  If  a  desire  of 

the  CCRS  program 

is 

to 

remove 

subjective  human  appraisal  from  the  assessent  of  unit 
readiness  it  will  be  necessary  to  integrate  these  other 
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sources  at  the  unit  level  and  determine  the  raw  data  to  be 
used  in  this  calculation.  Such  a  system  would  allow  event 
driven  automatic  reporting  but  would  be  extremely 
sophisticated  (and  costly). 

Regardless  of  the  level  of  detail  desired,  if  the  ROS  is 
to  have  widespread  distribution,  hcrdware  and  software 
comronality  will  be  required  to  reduce  life  cycle  costs.  It 
would  not  be  cost  effective  to  maintain  a  software  library 
of  similar  programs  for  each  make  and  model  of  microcomputer 
in  the  fleet.  In  addition  to  the  software  support  aspects, 
the  cost  of  the  hardware  and  its  maintenance  could  be 
reduced  through  the  defense  acquisition  process. 

Commercial  microcomputers  may  not  have  long  lifetimes  in 
comparison  to  their  military  counterparts,  tut  Their  economy 
and  universal  utility  more  than  count erba] ances  this.  The 
shorter  service  life  may  in  fact  be  a  benefit  as  commercial 
equipment  will  always  be  at  or  near  the  state  of  the  art 
and  at  a  competitive  price.  Every  effort  should  be  made  to 
procure,  for  each  unit,  a  general  purpose  microcomputer 
system  and  the  software  tools  to  effectively  make  use  of  it. 


APPENDIX  A 


v  PCS  UNITREP  OPERATOR  MANUAL 

The  ROS  UNITREP  SU3SYSTSM  provides  the  message  orignator 
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a  tool  for  the  drafting,  preparation  and  review  of  UNITREP 


messages.  The  ROS  UNITREP  Operator  Manual  is  subdivided  as: 

I.  BACKGROUND 

II.  GENERAL  INSTALLATION  PROCEDURES 

III.  GENERAL  PROGRAM  OPERATION 

IV.  PROGRAM  USAGE 

V.  SUPPORTED  UNITREP  REPORTING  SITUATIONS 
A.  LOCAL  INFORMATION 

E.  ADMINISTRATIVE  STATUS 
C.  AIRCRAFT  AND  CR£*S  STATUS 
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I.  BACKGROUND 

The  National  Cotnrand  Authority  and  the  Joint  Chiefs  of 
Staff  require  large  quantities  of  detailed  info rmation  in 
order  to  rraintain  the  correct  status  of  forces  throughout 
the  world.  Units  are  required  to  submit  certain  reports 
(e.g.  CASREF,  UNITREF  and  MOVEREP),  normally  via  message,  to 
keep  their  superiors  informed  of  the  organization  location 
and  status.  This  information  is  processed  and  made  available 
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to  necessary  commands  through  the  World  Wide  Military 
Comrand  and  Control  System  (WWPCCS).  The  Navy  intends  to 
consolidate  operational  reports  under  the  proposed 
CPNAVINST  3503.x  series:  Navy  Reporting  Structure  ( NRS ) 
Operational  Reports.  The  instruction  establishes 
requirement s  for  reports,  data  set  formatting  and 
definitions  that  are  compatible  with  other  US/ALLIEE 
agencies . 

Passage  reports  are  normally  processed  by  a  computer  at 
one  of  four  WWPCCS  sites.  Such  automated  handling  is 
extremely  sensitive  to  strict  formatting  requirements  in 
order  to  correctly  interpet  received  message  data.  Recent 
studies  have  shown  an  increasing  trend  in  format  and  data 
error  rates  as  a  result  of  stricter  formatting  requirements 
in  current  reports.  This  results  in  delays  as  the 
information  is  queued  to  an  operator  for  manual  error 
correction.  Greater  error  rates  may  be  anticipated  when  the 
proposed  instruction  is  released  unless  a  means  of  assisting 
the  originator  in  their  preparation  is  employed. 

The  concept  behind  the  Report  Origination  System  (ROS^ 
is  to  provide  the  message  originator  a  microcomputer  based 
aid  for  the  preparation  of  highly  formatted  reports. 
Ultimately  the  RCS  SYSTEP  will  integrate  modules  for  all  the 
NRS  reports:  CA.SREP,  STAEFRIP ,  EPSREF,  UNITREP,  SUREPOVE  and 
SUBPOVE.  The  ROS  UNITREP  SUESYSTEP,  version  1.1,  is  a 
partial  implementation  of  this  concept,  using  the  Ada 
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programming  language,  directed  at  supporting  UNITREP  report 
submission  of  Adnrinistrative  Status  and  Aircraft  and  Crews 
Status  Reports  (CPNAVINST  3S03.S  sections  4  and  6)  .  The 
SUBSYSTEM  is  designed  to  assist  three  levels  in  the  report 
generation  cycle;  the  systerr  operator,  the  message  drafter 
and  the  rressage  releaser. 

To  assist  the  system  operator  the  program  is  'user 
friendly',  navigating  through  the  report  hy  a  combination  of 
screen  prompts,  menu  selection  and  error  messages.  The  data 
set  formats  are  presented  in  an  understandable  manner  with 
access  limited  to  those  that  apply  for  the  type  message.  All 
information  is  verified  as  it  is  entered,  which  eliminates 
data  inputs  obviously  in  error  (e.g.  alphabetic  characters 
where  numbers  are  required,  incorrect  late-time  groups, 
invalid  entry  from  a  table).  The  drafting  document  which  the 
system'  provides  is  closely  aligned  to  the  display 
screens.  A  message  formatted  output  copy  of  the  report  is 
provided  in  addition  to  the  ability  to  reproduce  printed 
copies  of  past  messages. 

The  drafting  document  provides  the  drafter  with  a  quick 
means  of  determining  what  is  currently  reported,  what  is 
required  tc  be  reported  and  what  the  source  for  that 
information  is.  A  'fill  in  the  blank'  format  is  used  for 
each  data  item.  The  SUBSYSTEM  provides  the  actual 
formatting.  When  required  to  perform  a  feedback  verification 
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of  information  held  by  the  VWMCCS  database,  the  SUBSYSTEM 
can  automatl cally  provide  dll  iatd  submitted  as  of  a 
particular  serial  report.  The  drafter  is  provided  on  line 
'HELP'  information  to  aid  in  real-time  report  preparation  if 
so  desired.  Limited  information  included  in  the  governing 
instruction  (e.g.  look-up  tables,  reporting  rea.uirements )  is 
made  available  on  screen. 

For  the  releaser  there  exists  an  option  to  provide  a 
draft  document  which  consists  of  all  data  as  is  currently 
reported  or  that  will  oe  reported  with  the  message. 
The  data  is  logicdly  grouped  with  reporting  requirements 
noted  and  an  explanation  of  any  coded  Items  (e.g.  unit 
activity  code,  reconnaissance  capability). 

II.  GENERAL  INSTALLATION  PROCEEURES 

The  PCS  UNITREP  SUBSYSTEM,  Version  1.1,  Is  designed  to 
run  on  a  Z80/8080  based  8-bit  microcomputer  system  with  64X 
of  main  memory  and.  dual  single-sided  single-density  floppy 
disk  drives  running  under  ligital  Research's  CF/!*  system 
(Version  2.21).  The  current  program  is  customized  for  an 
Altos  Computer  System  ACS  8000-1  with  a  EAT AMELIA  ELITE  2500 
keyboard  and  terminal.  A  basic  understanding  of 
microcomputer  system  operation  is  advisable. 

The  following  steps  describe  the  procedures  to  be 
followed  upon  INITIAL  RECEIPT  of  the  program: 

1)  Copy  the  UNITREP  master  disk  to  a  reformatted  disk 


and  label  it  'UNITREP  MASTER'.  Store  the  raster  disk  in  a 
safe  location  following  norral  safety  procedures  in  the 
handling  of  floppy  disks. 

2)  As  the  EOS  UNITREP  program  irust  run  on  a  CP/M  based 
system,  it  is  necessary  to  copy  your  version  of  CP/M  to  the 
first  two  tracks  of  the  reformed  UNITREP  MASTER  disk  by 
issuing  the  STSGEN  corrand.  It  is  also  necessary  to  copy  the 
basic  Input/Output  System  for  peripheral  control, 
CBICSe4.CCM,  to  'UNITREP  MASTER'  fror  any  existing  disk. 

3)  label  another  reformatted  disk  'UNITREP  FILES  xxx- 
yyy'.  Place  the  serial  numoer  of  the  UNITREP  you  intend  to 
generate  first  in  the  xxx  slot.  Each  disk  will  hold  appro- 
xirately  25  UNITREP  messages. 

4)  Insert  the  UNITREP  MASTER  disk  in  the  systems  A: 
drive.  Insert  the  UNITREP  FILES  disk  in  the  3:  drive. 

5)  Observe  that  the  required  files  are  on  the  UMTREF 
MASTER  disk  by  typing  the  directory  command,  HR.  The 
required  files  are: 


CNITREP.COM 
UNITU00A 
ACTION 
TABLE. £-2 
ERAFT.TXT 


UNITP.EP1  .COM 

UMT000I 

INFO 

TABLE. B-3 
HELP.TXT 


UNITREP2.COM 
STATUS 
EREMSG 
TABLE  .2-6 


UNITREF3.COM 

CROSSREF 


The  operator  Is  not  required  to  know  the  function  of  each  file 
but  should  be  aware  that  these  files  are  necessary  to  the 
proper  operation  of  the  program. 


A  -r  -— -v  - 
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6)  Copy  the  two  files  UNIT000A  and  UNJ.T0003  to  the 
ONITREP  HIES  disk  on  the  Is  drive.  The  purpose  of  these 
files  will  be  explained  later.  (This  should  always  be  dore 


when  switching  in  a  new  UNITREP  FILES  disk) 


III.  GENERAL  PROGRAM  OPERATION 

Since  the  final  output  of  the  ROS  L'NITREP  SURSYSTZh  is  a 
formatted,  hard  copy  message,  only  cnaracters  that  are 
compatible  with  both  Optical  Character  Reader  (OCR)  and 
BACIOT  (a  message  transmission  code)  are  accepted  from  the 
keyboard.  The  operator  is  automatically  restricted  to  the:se 
type  of  characters.  If  the  operator  attempts  tc  put  in  aiy 
unacceptable  characters  an  aural  tone  will  sound.  Lowercase 
letters  are  automatically  converted  to  uppercase. 

Program  operation  is  controlled  through  a  combination  of 
menus  and  screen  'access  points',  menus  require  tne  operator 
to  select  one  of  the  displayed  options.  Access  points  are 
screen  locations  to  which  the  cursor  is  automa cically 
positioned  (noted  by  the  symbol  '(  )'  ).  Access  points  act 
as  guards  to  a  particular  data  set  or  information  item.  A 
set  of  valid  access  codes  (e.g.  'C'  to  change,  '?'  for  help) 
corresponds  tc  each  access  point  and  is  displayed  at  the 
bottom  of  the  display.  The  access  codes  determine  the 
operations  required.  If  an  invalid  key  is  selected  the 
operator  is  notified  by  an  aural  tone  and  when  appropriate, 
an  error  message  denoting  the  correct  key  to  depress. 


Throughout  the  program  whenever  an  <X>  Is  indicated  the 
'X'  or  the  TAB  hey  iray  he  depressed.  Whenever  an  <ENTEE>  is 
indicated  the  CARRIAGE  RETURN  or  SPACE  BAR  may  be  depressed. 

A  preirature  ABORT  of  the  program  is  available  by 
depressing  the  CONTROL  and  'C'  keys  simultaneously  (CTRL-C). 

***  NOTE  *** 

A  user  commanded  abort  will  most  likely  result  in  the  loss 
of  all  data  generated  since  the  last  entry  to  the  main 
(ACTION)  menu. 

9 *********** 

For  many  data  items  a  limited  amount  of  on  line  HELP 
information  is  available.  This  is  obtained  by  typing  a 
at  the  data  set  access  point.  If  HELP  is  not  available  an 
aural  tone  will  sound. 

A  brief  discussion  of  the  inner  operations  of  the 
SUBSYSTEM  is  required  to  acquaint  the  operator  with  some 
terms  frequently  used  in  the  program  displays.  The 
SUBSYSTEM'S  Current  Workfile  are  the  files  UNIT000A  and 
UNIT000B.  These  two  files  hold  all  the  infomation  on  the 
unit's  status  as  of  the  current  moment.  Once  a  message  has 
been  prepared  ANE  logged  as  transmitted,  the  SUBSYSTEM 
creates  files  UNITxxxA  and  UNITxxrS  on  the  3:  disk  (UNITREF 
FILES),  where  xxx  is  the  serial  number  for  that  report.  When 
the  system  is  asked  to  retrieve  old  information  it  will 
search  the  B:  disk  for  the  required  files.  If  they  are  not 
present  the  operator  will  be  notified. 


IV.  PROGRAM  USAGE 


To  execute  the  UNITREP  program  type  'UNITREP'. 

The  first  screen  to  appear  at  the  start  of  the  terminal 
session  is  the  SIGN  ON  display  (Figure  A-l)  which  gives  the 
version  of  the  program  and  the  status  of  the  current  message 
in  the  workfile. 

A.  PROGRAM  ACTIONS 

Following  the  SIGN  CN  display  is  the  ACTION  MENU 
(Figure  A -2 ) .  This  display  offers  the  operator  the  various 
program  options.  The  prompt  area  provides  additional 
information  to  the  operator  to  support  the  requested  action. 
Error  messages  are  displayed  ia  the  message  area.  The  ACTION 
MENU  will  always  he  redisplayed  with  the  required  action 
has  teen  completed.  A  brief  discussion  of  the  purpose  and 
prompts  for  each  of  the  desired  actions  follows. 

1.  Prepare  UNITREP  Era  ft  Eocument 

This  option  allows  the  operator  to  prepare  a  draft 
document  for  assistance  in  the  preparation  of  a  UNITREP  or 
for  review  of  the  realeasing  authority.  The  draft  document 
consists  of  all  the  information  as  currently  reported  by  the 
unit,  an  explanation  of  any  coded  entries,  the  fields  and 
limited  explanations/sources  for  each  data  set.  The  draft 
document  closely  follows  the  screens  presented  in  the  ROS 
UNITREP  SYSTEM.  The  draft  document  may  be  used  as  a  working 
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enu  Display 


copy  by  marking  the  appropriate  areas  for  change  and  filling 
in  the  corresponding  data  fields. 

The  operator  is  provided  d  prorrpt  (Figure  A- 3 a)  if  the 
current  workfile  has  not  been  logged  as  transmitted  (action 
-5-).  The  first  'election  allows  the  operator  to  obtain  the 
draft  copy  for  the  releaser  after  all  data  provided  by  the 
drafter  has  been  entered.  The  second  selection  permits  tne 
creation  of  another  drafting  document  for  the  current 
report.  If  the  current  workfile  has  already  been  transmitted 
the  last  reported  status  as  reflected  in  the  SUBSYSTEM  will 
provide  the  draft  information  without  prompting. 

The  next  prompt  reminds  the  operator  that  he  must  select 
the  UNITREF  SITUATION  for  which  draft  information  is 
required.  As  discussed  in  OPNAVINST  35P3.5  paragraph  1.5,  a 
normal  UNITREP  message  is  concerned  only  with  a  small  subset 
of  the  possible  UNITRIP  data  sets.  Therefore  data  sets  are 
grouped  into  subsets  called  SITUATIONS.  In  addition  to  the 
situations  established  by  the  instruction  (e.g.  Personnel 
Status,  Major  Equipment  Status)  ,  Local  Information  and  Type 
Comander  Reports  areas  have  also  been  identified  to  group 
data  sets.  The  UNITRIP  SITUATION  MENU  (Figure  A-4)  is  then 
displayed.  The  operator  selects  those  situations  for  which 
drafting  information  is  desired.  LOCAL  information  (message 
addressees,  classification,  priority,  etc.)  will  always  be 
provided.  All  other  SITUATIONS  must  be  requested. 

A  sample  draft  document  is  shewn  in  enclosure  A-l. 
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figure  A- 3.  ROS  UNITREP  User 


splay 


2 .  Initiate  New  UN.ITREP 

Once  a  UNITREP  has  been  logged  as  transmitted 
(action  -£-)  or  erased  (action  -€-)  this  selection  must  be 
made  to  reset  the  current  workfile  for  modification  (recall 
that  ALL  UNITHFP  information  for  the  unit  is  maintained  in 
files  UNIT000A  and  UNIT0003).  Any  attempt  to  modify  (action 
-3-)  a  transmitted  message  raises  an  error  which  notifies  of 
the  proper  sequence  for  continuing. 

3.  Ififte/fpdify/Add  lata  to  the  Fending  UNI  TRIP 

This  option  allows  access  to  the  SITUATION  MENU  and 
then  to  the  data  set  screens.  The  UNITREP  SITUATION  MENU 
(Figure  A-4)  is  first  displayed  and  the  operator  is 
prompted  to  select  those  areas  which  the  pending  message 
will  affect.  The  Local  Information  area  (-0-)  will  always  be 
entered,  regardless  of  whether  or  not  it  was  selected,  on 
the  first  modification  of  a  new  message.  This  is  to  set  such 
items  as  the  classification  and  declassification.  All  other 
SITUATIONS  must  be  selected  by  the  operator.  The  operator 
may  continue  to  modify  the  message  by  repeated  selection  of 
action  -3-  until  the  message  has  been  logged  as 
transmitted  (action 

4.  Print  Message  Format  Hard  Copy  of  a  UNITREP 

This  action  is  selected  when  the  operator  requires 
the  completed  message  as  it  is  to  be  formatted  for 
review/transmission,  or  for  recall  of  past  messages. 
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Two  options  are  offered  by  prompt  'Figure  A-3t):  Pending 
or  Cld.  Nhen  an  Old  UNITREP  is  selected  it  will  not  provide 
airplif ication  (APPN)  or  remarks  (RtfKS)  sets  as  these  free 
text  fields  were  purged  from  the  SUBSYSTEM  for  memory 
storage  reasons  when  the  message  was  logged  as  transmitted 
(action  -£-) . 

The  operator  is  also  given  a  print  format  option  (Figure 
A-3c).  OCR  format  gives  19  lines  per  page  double  spaced  with 


a  standard 

left 

margin 

and  maximum 

line 

length 

of 

es 

characters. 

Addresses  are 

indented  to 

tab  25; 

:  Fm, 

TC 

and 

INFO  are 

pri nted 

for 

demonstration 

purpos es . 

End 

of 

transmission,  'NNNN',  is  entered  automatically  at  the  end  of 
the  message.  Standard  Naval  Message  (Fleet  Broadcast)  format 
is  42  lines  per  the  page  single  spaced  and  a  maximum  line 
length  of  es.  Addresses  are  indented  to  tab  8  preceeded  by 
FM,  TO  and  INFO  as  appropriate.  End  of  transmission,  'BT', 
is  entered  where  required. 

5.  Log  Pending  UNITREP  as  Transmitted 

This  action  is  to  be  selected  once  a  message  has 
been  approved  for  transmittal  AN E  RELEASED.  Units  assigning 
their  own  date-time  groups  should  insure  that  a  proof  copy 
of  the  message  has  been  obtained  since  logging  a  message  as 
transmitted  purges  all  of  the  amplification  (AtfPN)  and 
remarks  (RPKS)  data  sets  from  the  SUBSYSTEM  data  structure. 
A  prompt  (Figure  A-3d)  is  displayed  and  the  operator  enters 
the  date-time  group. 


L20 


***  NOTI  *** 

Prompt  entering  of  the  transmittal  date-time  group  is 
required  as  irodif lcation  is  allowed  UNTIL  TEF  USEE  has 
selected  this  action.  This  coula  cause  the  data  for  the 
SUBSYSTFM  to  be  incorrect  if  subsequent  modifications 
are  made  after  the  actual  transirittal  but  prior  to  the 
logging  as  transmitted. 

*«*«*«*«**** 


6.  |rase  Pending  Uni  tree 

This  action  allows  the  operator  to  erase  the  pending 
UNITRFP  and  return  the  SUBSYSTEM  to  the  information  state 
that  existed  as  of  the  last  transmitted  UNITRE?.  The 
operator  is  prompted  (Figure  A-2e)  to  ensure  an  erase  has 
been  requested.  Once  a  UNITREF  has  been  logged 
transmitted  it  may  not  be  erased. 


***  NOTE 

The  SUBSYSTEM  erases  a  file  by  copying  the  last  file 
logged  as  transmitted.  It  is  recommended  that  when 
switching  UNITREP  PILE  disks  the  LAST  transmitted  file, 
UNITxxxA  and  UNITxxxB,  where  xxx  is  the  LAST  transmitted 
serial  number,  be  copied  to  the  new  UNITREP  FILE  disk. 
The  old  disk  should  then  be  appropriately  annotated  for 
the  first  file  -  last  file  sequence  and  stored  as 
appropriate  for  its  classification.  If  a  file  required 
to  complete  the  erase  is  not  present  on  the  B:  disk 
drive  the  program  will  terminate,  notifying  the  operator 
that  the  required  file  must  te  copied  to  the  B:  disk 
drive, 

9  **?**** 

7 .  Prepare  Verification  Summary 

When  required  by  higher  authority  to  perform  a 
feedback  verification  (OPNAVINST  2503.5,  paragraph  4.0)  , 

this  option  allows  the  operator  to  enter  an  as-of 


verification  serial  (Figure  A-3f).  All  data  in  the  SUBSYSTEM 


as  of  that  serial  number  will  be  listed  in  message  format  to 
compare  with  the  verification  copy.  Future  versions  will 
frost  likely  change  this  to  a  date-time  group  under  full  NRS . 

3.  Suit 

When  the  operator  has  completed  the  terminal  session 
this  action  is  used  to  terminate  program  execution.  All 
modifications  made  will  be  preserved  in  the  workfile. 
Therefore  an  entire  generation  cycle  (draft,  prepare,  enter, 
review)  need  not  be  completed  In  a  single  setting.  This 
frees  the  microcomputer  system  for  other  uses. 

V.  UNITE IF  SITUATIONS 

As  described  in  the  proposed  UMTRFP  instruction 
(OPNAVINST  3SZ3.5  paragraph  1.5)  certain  changes  in  an 
organization's  status  require  a  UNITRIP.  The  ROS  UNITRIP 
SUBSISTIN'  is  organized  around  logical  groupings  based  on 
these  changes.  Whenever  the  operator  selects  to  modify 
(action  -3-)  or  draft  (action  -1-)  the  UNITRIP  SITUATION 
screen  (Figure  A-4)  is  displayed.  The  operator  selects  those 
situations  that  are  required.  Once  the  selection  is  complete 
the  program  executes  those  areas. 

Each  situation  cr  area  is  divided  into  one  or  more 
screen  displays.  The  area  and  subarea  are  noted  near  the  top 
of  the  screen.  Each  individual  information  item  or  data  set 
is  displayed  in  plain  english  and  numbered  for 


identif ication  purposes.  Modification  to  the  current 

information  is  controlled  by  using  access  points,  '(  )',  to 

which  the  cursor  automatically  positions.  The  operator 

enters  an  access  code  (keyboard  character)  and  the 

appropriate  action  is  taken  or  allowed.  Valid  access  codes 

are  displayed  on  each  screen  and  are  included  fcr  each  item 

in  Table  A-l.  A  summary  of  the  valid  access  code  meanings: 

' I '  or  TAB:  grant  access  to  the  data  fields  for 

modification  OE  grant  access  to  additional  sub-access 
points  which  guard  the  actual  data  fields. 

SPACE  or  CAEEIAGI  EETUEN:  no  access  required,  go  to  next 
access/sut-access  point. 

'C' :  allow  access  to  data  field(s)  for  change  purposes. 

#E':  mark  this  set  for  deletion. 

'E ' :  restore  a  set  previously  marked  for  deletion. 

'A':  amplif ication  comments  to  be  created  (Figure  A-5) . 

FILE  information  requested. 

any  other  character:  incorrect  input,  operator  notified  oy 
an  error  message  and/or  aural  tone. 

All  data  item  modifications  are  brought  to  the 

operator's  attention  by  the  use  of  symbols  next  to  the 

appropriate  access  point (s)  of  the  display.  When  a  data  item 

has  been  changed  it  will  be  marked  with  an  »ihen  a  data 

item  has  teen  tagged  for  deleteticn  it  will  be  marked  with  a 

'r'  (Use  of  the  access  code  removes  this  'D').  If 

amplification  comments  have  been  created  an  'A'  will  be 

marked  next  to  the  This  allows  the  operator  to  generate 

the  report  over  a  period  of  time  without  the  difficulty 
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Figure  A-5.  RCS  UNITREP  Free  Text  Set  Tlsplay 


of  remembering  what  has  or  has  not  been  changed.  All  symbols 
are  removed  when  a  new  report  is  initiated  with  the 
exception  of  items  which  are  reported  continuously  (e.g. 
OPEB  or  EXES  when  required) . 

***  NCTF  *** 

P.OS  UNITS  IP  SU3SYST2N ,  Version  1.1,  implements  only  the 
LOCAL,  ADMINISTRATIVE  and  AIHCHAFT  AND  CHEWS  STATUS 
situations.  The  operator  is  notified  if  an  un implemented 
area  has  been  selected.  Table  A-2  provides  a  quick:  data 
set  to  screen  display  cross  reference. 

A.  LOCAL  INFORMATION 

Local  Information  pertains  to  unit  particular  items. 
This  section  is  subdivided  into  three  (3)  screen  displays. 
Infrequently  Changed  Items,  Message  Information  and 
Miscellaneous.  All  or  part  of  the  information  in  the  Local 
area  will  appear  for  each  message.  A  description  of  each 
display  follows. 

1.  LOCAL  i IN  FREQUENTLY  CHANGED  ITEMSr  {Figure  A-61 
These  items  are  normally  set  when  ihe  ROS  UNITREf 
SUBSYSTEM  is  initially  received.  After  this  only  item  -4- 
(Feeder  Report)  will  require  modification. 

-1-  UNIT  TYPE:  Self  explanatory.  Used  to  determine  type 
unique  reporting  requirements  (e.g.  MEDIC  for 
ships/sufcmarines  only). 

-2-  UNIT  IDENTIFICATION:  Used  in  the  creation  of  MSG  IE  and 
UN IT  1 1  data  sets  (data  field  Message  Originator). 


L2? 


or: 


Table  A-2.  Eata  Set  -  Screen  Eisplay  Correspondence 


DATA  SIT 

SCREEN 

ITEM 

ACTIV 

Adminlstrati  ve 

2  - 

Activity  Code 

AIRAUTF 

Air  (auth) 

Aircraft  Authorized 

AIRSTAT 

Air  (status) 

1  - 

Aircraft 

AMPN 

ALL 

Amolif ica  tion 

COMMAND 

Administrative 

1  - 

Command  Change 

CREVAUTH 

.  Air  (auth) 

Crews  Authorized 

CMMTAT 

Air  (status) 

2  - 

Crews 

ECUS 

Local  (message) 

4  - 

Eecla  ssif ication 

EELETE 

Air  (auth)  (status) 

delete  this  item 

IX I?. 

Local  (misc) 

lb 

-  Exercise 

MEDIC 

Administrative 

3  - 

Physician  Status 

MSG  IE 

Local  (infrequent) 

4  - 

Feeder 

CPER 

Local  (misc) 

la  ■ 

-  Operation 

POSIT 

Local  (misc) 

2  - 

Pos it  ion 

RECCN 

Air  (status) 

3  - 

Reconnai sance 

REFORG 

Administrative 

4  - 

New  Rep  Crg 

RMXS 

Local  (misc) 

3  - 

Remarks 

UN  IT  IE 

Local  (Infrequent) 

4  - 

Feeder 

VERIFY 

Administrative 

e  _ 

Verification 
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.  .  ■ 

3-  LAST  SERIAL:  This  item  should  only  be  changed  when  first 
receiving  the  ROS  UNITRIP  SUBSYSTEM  to  synchronize  the 
SUBSYSTEM  with  the  unit's  UNITRIP  serial  number.  A  two 
line  error  message  warns  the  operator  not  to  change  this 
value  except  for  this  reason.  Three  possible  situations 
dictate  the  procedures  to  be  followed: 

a)  Newly  activated  unit,  first  serial  ?01 :  No  action  is 
required  as  the  SUBSYSTEM  automatically  begins  serial 
numbers  at  001. 

b)  Reactivated  unit:  Enter  the  serial  number  of  the  last 
UNITREF  transmitted  by  the  unit  (it  should  have  noted 
deactivation ) .  Fill  in  UNITREP  entries  normally. 

c)  Currently  active  unit:  Prior  to  generating  the  unit's 
next  UNITREP  it  is  necessary  to  initialize  the 
SUBSYSTEM  data  structure.  This  is  accomplished  by 
simulating  the  unit's  last  report  as  a  complete 
complement  of  data  set  submissions. 

Enter  the  unit's  last  transmitted  serial  minus  1. 
(e.g.  last  serial  473  -  enter  472).  This  resets  the 
SU3SYSTEM  current  serial  to  that  of  the  last 
transmitted  serial.  COMPLETELY  fill  in  all 

UNITREP  SITUATIONS  as  they  existed  as  cf  the  last 
serial.  When  all  entries  have  been  confirmed,  log  the 
message  as  transmitted  (action  -5-)  with  the  last 
serial  number's  date-time  group.  After  Initiating  a 
New  Report  (action  -2-)  the  SUBSYSTEM  and  unit 
serials  will  coincide. 

4-  MESSAGE  TC  3E  PREPARED  AS  A  FEELER  REFORT:  This  item 
determines  if  a  message  should  be  prepared  with  a  MSGIE 
or  UNITIL  data  set  and,  as  explained  in  OPNAVINST  3503.5 
paragraph  2.5,  depends  on  whether  the  unit  is  the 
releasing  authority  or  if  the  message  is  an  input  to 
another  unit  which  will  release  it  in  a  combined  report. 
If  set  to  N  (NO),  a  normal  message  will  be  prepared  with 
the  MSGID  set.  If  set  to  Y  (YES),  All  addresses,  message 
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information  and  the  OPER  or  IX IK  set  will  ce  printed  on 
cover  sheet(s)  for  review  of  the  transmitting  unit.  The 
following  page  will  begin  with  the  UMTIE  set  and 
contain  the  unit  particular  items.  The  RMXS  and  ECLAS 
sets  will  listed  on  the  last  page. 

2 .  LOCAL  rMSSSAGE  INFORMATION-  (Figure  Ar?J 

This  area  is  concerned  with  message  addresses, 
classif ication ,  declassification  and  priority.  A  maximum  of 
fifteen  (15)  ACTION  and  fifteen  (15)  INFO  addressees  are 
processed  ty  the  display  of  Figure  A-8.  HELP  is  available  to 
determine  ACTION  and  INFO  addressees  once  ACTION/INFO  has 
been  selected.  If  a  message  is  classified,  declassification 
instructions  are  required  to  continue. 

3.  LOCAL  i MISCELLANEOUS-  ^Figure  £r SJ 

These  data  sets  are  recurrent  for  any  UNITREP  situation 
reported. 

-1-  Operation/Exercise:  This  creates  the  OPER  or  IXER  set  as 
required.  Only  an  Operation  OR  an  Exercise  can  te  in 
progress.  This  remains  fixed  until  changed  by  a 
sutsequent  UNITREP.  NO  amplification  ( AMPN )  is  allowed. 
-2-  Position:  This  creates  the  POSIT  set.  If  the  unit  is  a 
ship  cr  submarine,  the  program  automatically  goes  to 
this  field.  All  other  units  must  select  this  to  indicate 
a  change  in  position.  If  the  position  is  'EXEMPT'  no 
date-time  group  is  required. 
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Figure  A-S.  RCS  UNITRIF  Local  Miscellaneous  Display 


-3-  REMARKS :  Remarks  are  used  to  amplify  an  entire  message. 
A  maximum  of  one  hundred  (100)  lines  may  be  entered 
using  the  display  of  Figure  A-5.  Ten  (10)  lines  are 
processed  per  screen. 

I.  ADMINISTRATIVE  SITUATION  (Figure  A-10) 

This  information  relates  to  OPNAVINST  35e3.5  section  4, 
Administrative  Status  Reporting.  Five  data  sets  are 
provided,  all  of  which  may  be  amplified  (AMPN). 

-1-  Command  Change:  (COMMAND)  Requires  the  operator  to  enter 
the  new  commander  and  the  effective  date-time  group  of 
the  command  change. 

fir*  -2-  Activity  Change:  (ACTIV)  Requires  a  two  letter  cone,  for 

Vrv-  *  .v 

the  units  current  activity  as  obtained  from  OPNAVINST 
3503.5  Table  B-€.  This  table  is  available  on  screen 
through  the  EIIP  facility.  The  operator  input  is  cross 
checked  against  the  table  to  ensure  a  valid  code  has 
been  entered. 

-3-  Physician  Status:  (MEDIC)  Access  to  this  data  set  is 
limited  to  only  units  which  are  ships  or  submarines 
(OPNAVINST  3503.5  paragraph  4.5).  This  is  a  checK  off 
item  as  the  possiblle  entries  are  limited.  The  operator 
enters  an  'X'  at  the  appropriate  access  point.  At  least 
one  choice  must  be  selected. 

_  -4-  New  Reporting  CRG:  (REPORG)  The  operator  checks  the 

appropriate  reporting  organization  and  enters  the  ITG. 
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-5-  Feedback  Verification:  (VERIFY)  Tnis  set  is  submitted  in 
reply  to  a  feedback  verification  request  (OPNAVINST 
3503.6  paragraph  4.8).  The  operator  selects  the 
appropriate  reply  dependent  on  the  outcome  of  the  report 
verification. 


C.  AIR  SITUATION 

This  information  relates  to  OPNAVINST  3503.5  section  6  - 
Aircraft  and  Crews  Status  Reporting.  Certain  limitations 
were  imposed  in  the  design  of  the  RCS  UMTRIP  SUBSYSTEM  -  a 
unit  may  possess  up  to  four  (4)  different  aircraft  types 
ard  deploy  these  aircraft  to  no  more  than  four  (4)  different 
locations  for  each  type.  If  a  unit  possesses  less  than  four 
(4.)  different  aircraft  types,  the  number  of  possible 
locations  can  be  increased  by  specifying  the  possessed 
aircraft  type  up  to  the  maximum  limit  of  four  (4).  Each 
additional  specification  allows  four  (4)  mere  locations. 

The  ECS  UNITREP  AIR  SITUATION  is  subdivided  into  three 
displays:  an  Authorization  Page  ,  a  Location  Page  and  a 
Status  Page. 

1.  AUTHORIZATION  Higuie  A=ll) 

This  display  shows  the  various  Aircraft  Types  a  unit  has 
available,  the  number  of  Aircraft  and  Crews  Authorized  and 
the  number  of  Locations  where  they  are  deployed.  The  cursor 
positions  tc  the  ACCESS  point  of  the  Type  unless  the  Type  is 


empty.  In  the  latter  case  entry  is  to  the  first  blank 


ns  Display 


I 

I  —  Aircraft  Type  field.  The  accessed /entered  type  is  cross 
checked  against  CPNAVINST  3503.5  Tatle  3-2.  This  table  is 
available  to  the  user  through  the  HELP  facility.  The  cursor 
next  positions  to  the  Authorized  Aircraft  (AIRAUTH)  and 
Authorized  Crews  (CREVAUTE)  access  points.  The  appropriate 
access  code  is  entered  to  change,  amplify.  delete,  restore 
or  request  EEIP.  The  cursor  positions  to  the  Eeployed 
Location  access  point.  The  Location  Page  is  displayed  If  an 
'I'  is  entered. 

2.  LOCATION  {figure  A-12) 

The  Location  page  displays  up  to  four  (4)  locations 
at  which  the  aircraft  are  deployed.  The  first  entry  is 
always  naired  ECPE  PLATE,  a  pseudonym  for  the  parent 
organization  location  reported  in  the  POSIT  set.  On 
message  copy  it  is  represented  as  a  hyphen  as 

required  ty  CPNAVINST  3503.5.  The  operator  enters  a  new 
location  in  the  first  blank  field  or  selects  which  location 
to  access  for  status  information. 

3 .  STATUS  {Figure  Ar13) 

This  page  displays  the  current  status  of  the 
particular  aircraft  type  at  the  particular  location.  All 
status  information  for  a  given  location  may  be  deleted  by 
entering  a  'E'  at  the  Location  access  point.  Individual 
status  items  may  be  deleted  by  entering  a  'E'  at  the 


appropriate  access  point.  Whenever  status  items  are  marked 
for  deletetion  the  operator  Is  prompted  to  modify  a 
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corresponding  status  display,  if  required  (e.g.  Eeletion  of 
a  detachment's  status  information  normally  requires  an 
increase  in  the  parent  organization's  nurrber  of  aircraft  and 
crews  possessed) . 

-1-  Aircrafts  (AIP.STAT)  Full  Mission  Capable/Part  ial  Mission 
Capable  (FMC/PMC)  are  always  reported  within  the  AlRSTAT 
set.  A  check  is  made  to  insure  that  Aircraft  Possessed  = 
FMC  +  PMC  +  NMC  (Not  Mission  Capable).  If  this  set  is 
deleted  the  Reconai ssance  Capability  is  assumed  to  have 
been  deleted  also.  Therefore  RECON  will  NOT  be  reported 
as  deleted,  but  will  in  fact  be  purged  from  the  system 
(OPNAVINoT  3503.5  section  £  paragraph  8e)  . 

-2-  Crews:  (CREWSTAT)  Crews  Formed  are  not  allowed  to  exceed 
Crews  Heady. 

-3-  Reconnaissance  Capability:  (RECCN )  As  this  set  is 

reported  in  its  entirety  whenever  a  change  has  been 
made,  individual  capability  deletions  and  additions  are 
permitted.  The  operator  is  provided  a  prompt  as  to  the 
procedures  to  be  followed.  The  primary  recon  capability 
is  always  entered  first.  Entries  are  checked  against 
CPNAVINST  3503.5  Table  £-3.  The  table  is  also  available 
on  screen  through  the  HELP  facility. 
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Enclosure  A-l 


Sample  ROS  UNITREP  Draft  Document 


RCS  UNITRIP  ERAET  DATA 
EC-1  DET  3  SERIAL  345 

CLASS IET  IN  ACCORDANCE  WITH  OPNAVINST  551Z.1 


RE:  Page  143,  Classified  in  Accordance  wit 
OPNAVINST  5510.1 

This  is  a  sample  page.  Report  contains  no 
classified  information  per  Ondr  Urbanek, 
NPS/ Security 


******  INITIAL  ITEMS  -  LATA  SIT  INFORMATION  ****** 

UNITREP  SITUATION  -  <X>  appropriate  iters 

(X)  -0-  Modify  Local  Information 

(  )  -1-  Personnel  Status 

(  )  -2-  Administrative  Status 

f  )  -3-  Unit  Combat  Readiness  Assesment 

(  )  -4-  Aircraft  and  Crews  Status 

(  )  -5-  Major  Equipment  Status 

(  )  -6-  Special  Capabilities  Status 

(  )  -7-  Increased  Defense  Readiness  Status 

(  )  -8-  Reserve  Augmentation  Status 
(  )  -S-  Type  Commander  Reports 


INFREQUENTLY  CHANGED  ITEMS  - 

CHANGE  CNLY  CM  INITIALIZATION  AND  WHEN  NECESSARY 

(  )  -1-  Unit  Tyre: 

(  )Ship  (  Submarine  (  )Air  '  )Shore'  (  )Other 


(  )  -2-  Unit  Identification  -  OPNAVINST  3503.1  App.  C 


(  )  -3-  Last  Serial 


(  )  -4-  Message  to  be  Prepared  as  Feeder  (Y/N): 

(UNITID  vice  MSGIE  data  set) 

If  Feeder  is  set  to  YES  precedence .addresses  and 
classification  will  be  placed  on  the  message  cover 
sheet(s)  for  review  by  the  transmitting  unit.  The 
UNITII  set  will  be  used  on  the  first  line  of  the  next 
page.  Remarks  and  declassification  lines  will  oe  listed 
on  the  final  page. 

If  Feeder  is  set  to  NO  all  message  information  will  occur 
in  sequence  with  the  MSGID  set. 


AMPN  MSGII/UNITIE  (Circle  if  Attached) 


FM  HELS uFPRCN  ONE  EET  THREE 

TO  CINCFACFLT  PEARL  HARBOR  El 

COMTB IRTELT 

CCMASWVINGPAC  SAN  EIEGO  CA 
NAVIATACEN  PEARL  HARBOR  HI 
ZFN/HELSUPPRON  ONE 
INFO  COMCARAIRWING  FOURTEEN 
CCNFIEENTIAL 

(  Classified  for  Demonstration  Purposes  Only  ) 
******  MESSAGE  HEATER  -  TATA  SET  INFORMATION  ****** 

(  )  -1-  Addresses 

(  )  Originator 

Action 
(  )  Info 


K  ) 


-2-  Classification 
Uncles 

Confident ia 1 
3  Secret 
Top  Secret 


(  )  -3-  Precedence 
Routine 
Priority 
~  Irmediate 
Flash 


(  )  -4-  reclassification  Instructions 


Additional  Addressees  (Indicate  ACTION  or  INFO) 


EXZR/SUMKER  RAIN// 

******  OPER/EXER  -  DATA  SET  INFORMATION  ****** 

Only  an  Operation  CR  an  Exercise  can  be  underway,  NOT 
BOTE.  To  change  from  an  Operation  to  an  Exercise  or 
vice-verse,  first  TERMINATE  the  current  Operation  or 
Exercise,  then  initiate  the  new  Cperation/Ixercise. 


(  )  -la-  Operation  Underway 
I  Cueration  Codeword 


Plan  Criginator  and  Nurrcer 


(MANDATORY) 


(OPTIONAL) 


(  )  -lb-  Exercise  Underway 
!  Exercise  Nickname  (62  characters  max) 


!  (MANDATORY) 

(  )  -lc-  Operation /Exercise  Terminated 


MSGID/UNITEEF/EC-I  DET  3/345// 

******  MSGIE/UNITID  -  DATA  SET  INFORMATION  ****** 

This  data  set  is  set  within  the  program  depending  on  the 
items  noted  on  the  cover  page  under  Feeder. 

The  format  is: 

MSGID/UNITREF/ - message  originator - /serial// 

or 

UNITID/  - message  originator -  /serial// 

AMPN  (Circle  if  Attached) 


POSIT/NORTE  ISLAND /2211 00 Z0CTS3// 

******  POSIT  -  DATA  SET  INFORMATION  ****** 

MANDATORY  for  ships/submarines.  IF  Location  is  EXEMPT  then 
no  other  information  is  required.  IF  not  at  a  standard 
location,  LAT/LONG  is  required.  The  DTG  is  required  for 
any  Location  or  LAT/LONG  when  not  exempt. 

(  )  -2-  Position  -  Required  for  ship/suo 

Location  (or  EXEMPT)  or  LAT/LCNG 

ddmmDC-dddmmDC 


AS-CI  Date-Time  Group 
ddhhmmZf'f'Myy 
Z 


Af'TN  (Circle  if  Attached) 

(  )  -3-  Heir  arks  : 

Remarks  (Et*KS)  are  used  to  amplify  an  entire  message 
They  are  limited  to  130  lijies  at  most. 


■v  s ; 


CCMMANE/ICIB  £.1.  NSWGUY/ 211200ZM  AR83// 

******  COMMA  NE  -  EATA  SIT  INFORMATION  ****** 

BOTH  items  MANEATQRY.  Punctation  optional 

(  )  -1-  Command  Change 

CO/OIC 

Effective  DTG  ddhhmmZMMMyy 

AMPN  (Circle  if  Attached) 

ACTI7/CS // 

CS  ops  -  Ccirtat  Support 

******  ACTIV  -  EATA  SIT  INFORMATION 

Valid  codes  are  contained  in  TABLE  B-6 . 

(  )  -2-  Activity  Change  Code 

AMPN  (Circle  if  Attached) 

REPCRG/CINC? ACFLT/201S00ZMAR83// 

******  RIPCEG  -  EATA  SET  INFORMATION  ****** 

Reports  the  NEW  reporting  organization 

(  )  -4-  New  Reporting  ORG  Effective  ETG  ddhhmmZMMMyy 

_Z 

(  ) CNC  (  ) CINCPACFLT  (  )CINCLANTFLT  (  ) CINCUSNAVFJR 
AMPN  (Circle  If  Attached) 

VERIFY/VALIE// 

******  VERIFY  -  EATA  SET  INFORMATION  ****** 

VALIT  -  all  data  in  the  NRS  feedback  report  is  CORRECT 
CCRRECTEI  -  the  appropriate  information  has  been  submitted 

(  )  -£-  Feedback  Verification  (  )  Valid 

(  )  Corrected 

AMPN  (Circle  if  Attached) 
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AIRAUTE/SP-3G/AUTE :04// 

CREWAUTE/SE-3G/AUTP :24// 

******  AIR  AUTHORIZATIONS  -  TATA  SIT  INECRMATION  ****** 
Aircraft  Authorized  are  listed  in  the  Weapon  System 
Planning  Eocument  CPNAVNOTE  12210. 

Crews  Authorized  are  listed  In  the  Unit  Manpower 
Authorization  OPNAVNOTE  1000/2,  M  +  l  column. 

Aircraft  Crews 

1  ACCESS  Authorized  Authorized 

(  )  (  )  (  ) 

AMPN-A IRAUTE  (Circle  if  Attached! 

AMPN-CREVAUTE 


AIRSTAT/SP-2G/PCSS  :04/-/FMC :  02/PMC :01// 

CREWSTAT/SH-2G/F0RM :06/-/REArT :0S// 

R2CCN/SE-3G/-/ CAMERA/TV// 

******  Recon  Capability  Eefinitions  ****** 

CAMEPA :  Hand  Held  Carrera 
TV:  Television 

******  AIR  STATUS  *  EATA  SIT  INFORMATION  ****** 

Valid  PICCN  capabilities  are  contained  in  TA9LI  3-3. 

(  )  -1-  Aircrdft  (  )  -2-  Crews 

Possessed  FMC  PMC  NMC  Formed  Ready 


(  )  -3-  Reconaissance  Capability  Primary 


AMPN-AIRSTAT  (Circle  if  Attached) 

AMPN-CREWSTAT 

AMPN-RECON 


EELETE/AIBSTAT/SH-3G/P0SS  :02/CORAL  SEA/ FMC  :02/FMC:Z0// 
EELETE/CRIViSTAT/SH-3G /FORM  :03/CCRAL  SEA/RSADT:03  V 

******  Recon  Capability  Eefinitions  ****** 

CAMERA:  Hand  Held  Camera 
TV:  Television 
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******  AIR  STATUS  -  CATA  SIT  INFORMATION  ****** 

Valid  RFCCN  capabilities  are  contained  ir  TABLE  B-2 


(  )  -1-  Aircraft 

Possessed  FMC  PMC  NMC 


(  )  -2-  Crews 

Formed  Ready 


-3-  Peconalssance  Capability  Primary 


AKPN-AI5STAT  (Circle  if  Attached) 

AMPN-CRIWSTAT 

AMPN-RECCN 


m 


******  AIB  -  NEW  -  EATA  SET  INFORMATION  ****** 
AUTHORIZATIONS 

Valid  Aircraft  Types  are  contained  in  TABLE  B-2. 
Aircraft  Authorized  are  listed  in  the  Weapon  System 
Planning  Tocuirent  OPNAVNOTE  13010. 

Crews  Authorized  are  listed  in  the  Unit  Manpower 
Authorization  CPMAVNCTI  1000/2,  M+l  column. 


Aircraft 

A1 rc  raft 

Crews 

?  ACCESS  Type 

Authorized 

Authorized 

(  ) 

(  )  ( 

) 

LOCATION 

(  )  location 

STATUS 

Valid  RECCN  capabilities 

are 

contained  in  TABLE 

3-3 . 

(  )  -1"  Aircraft 

(  ) 

-2-  Crews 

Possessed  EMC  PMC 

NMC 

Formed 

Ready 

(  )  -3-  Reconaissance 

Capability  Primar 

y _ 

AMPN-A IRAUTE  (Circle  if  Attached) 

AMPN-CREWAUTH 

AMPN-AIPSTAT 

AMPN-CREWSTAT 

AMPN-RICCN 


RMKS/LIIE  SEABE  EETACEMENT  RETURNEE  FROM  SHORT  CRUISE// 

******  Hf*xs  _  data  set  ineormaticn  ****** 

Change  afcove.  Item  -3-  Remarks. 


ECLAS/EICL  23  MAR  87// 


******  rciAS  -  EATA  SET  INFORMATION  ****** 

The  declassif ioation  line  is  set  in  accordance  with 
C? NAVI NS!  551Z.1.  It  is  required  for  all  classified 
messages  and  is  set  on  the  cover  page  under  Message 
Redder  iter  -4-. 


EELSCFFRCN  ONE  LET  THREE 


FI* 

TO  C IN CPACFI.T  PEARL  EAREOR  HI 
COMTEIRIILT 

COMASwWINGPAC  SAN  DIEGO  CA 

NAVL/.TACEN  PEAPL  EAR  FOR  El 

ZEN/ESLSUFPEON  OM 

INFO  CO^CARAIRWING  FOURTEEN 

CONFIIENTIAL 

(  Classified  for  Demonstration  Purposes  Only  ) 

EIER/SUMMIF  RAIN// 

MSGII/UNlTREP/HC-1  RET  3/345// 

COMMAND/LCIR  3.F.  NZ'*GUY/2112f-70ZM  i?.83// 

AIRSTAT/SE-3G/PCSS  :04/-/FMC  :02/PMI  :01// 

CREtoSTAT /SF-3G/FCR* :06/-/?£AIY  :05// 

DILETE/AIRSTAT/SE-YG/PCSS :02'/CCRAL  SSA/F*C  :  Z2/PMC : ze// 
DELETE/CHEWSTAT/SH-3G/70RM  :(J3/C0RAL  SEA /READY  :03// 
RMKS/LIFE  GUARD  DETACHMENT  RETURNED  FRCM  SPORT  CRUISE// 
ECLAS/DECL  21  MAP.  87// 


APPENDIX  3 


JANUS /A CA  LIBRARY  MCDULIS 


This  appendix  provides  the  definitions  of  the 
subprograms  from  the  JANUS/AIA  library  packages  (io,  util, 
strlib,  chainllb)  used  in  the  ROS  UNITREF  SUBSISTED. 


Package  IC  Is 

—  The  I/O  package  for  JANUS  V.  1.4.5 
--  last  Modified  10/13/82 


—  Copyright  1982  P.R  Software,  F.C.  3ox  1512,  Madison 

—  WI  53701.  Permission  is  hereby  given  to  distribute 

—  Object  Code  produced  from  these  libraries. 


Type  File_Mode  Is 

( No_Access  ,Read_ Only , V ri  te_0nly  ,ReadJ#' ri te) ; 

IOresult':  Integer;  —  The  result  of  the  IC  operation 

Procedure  Cpen(?yle  :  In  Out  File;  Name  :  In  String,' 

Mode  :  In  FI  le_*ode } ; 

—  Open  the  file  name  and  give  it  the  mode  mode 

Procedure  Create(Fyle  :  In  Cut  File;  Name  :  In  String; 

Mode  :  In  File_Mode); 

—  Create  the  file  name  and  give  it  the  mode  mode 

Procedure  Delete(Name  :  In  String); 

—  Delete  the  file  name 

Procedure  Close(Fyle  :  In  Cut  File); 

—  Close  the  file  fyle 

Function  Name(Fyle  :  In  File)  Return  String; 

—  Return  the  name  of  the  Cpen  file 

Function  Is_open(Fyle  :  In  File)  Return  Boolean; 

—  Is  the  file  fyle  open? 
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Junction  Get  Line(Fyle  :  In  File)  Return  String; 

—  Get  a~line  frorr  the  file  fyle 

Procedure  Fut  Eex(Fyle  :  Ir  File;  val  :  In  Integer); 

—  Write  the  integer  in  hexi decimal  (no  special  forrrat) 

Function  Ind_of  file(fyle  :  In  File)  Return  boolean; 

—  Ind  of  File  Reached  (in  a  text  file)? 

Function  ICJ(fyle  :  In  File)  Return  Boolean; 

—  Ind  of  File  Reached  (in  a  binary  file)? 

Function  li sk_full(fyle  :  In  File)  Return  Boolean; 

—  Is  the~Eisk  full  ? 

Function  Ind_of_Line (fyle  :  In  File)  Return  Eoolean; 

—  Ind  of  Line  Reached? 

End  I0» 


Ct. 


with  Jiibee; 

Package  Util  Is 

—  Spec  for  the  package  util 
—  Last  modifed  S/22/82 

—  Contains  the  utility  routines,  and  the  basic  file 
—  handling  routines 

—  Copyright  1S82  RR  Software,  F.O.  Box  1512,  Madison 
—  WI  53701.  Permission  is  hereby  given  to  distribute 
—  Object  Code  produced  from  these  libraries. 


Use  JIit80;  —  So  the  file  definitions  are  available 

Procedure  Frr_Exit; 

Procedure  Halt; 

Function  Pi  (val  :  Integer)  Return  Byte; 

Function  Lo  (val  :  Integer)  Return  Byte; 

Function  Memavail  Return  Integer; 

Function  Maxavail  Return  Integer; 

Function  Ccmmand_Line  Return  String, 

—  Returns  the  command  line 

—  Eefault  File  Procedures 

Function  FConvert (Fyle  :  In  File)  Return  ?ile_?tr; 
Procedure  FFConvert (Fyle_pt r  :  In  Flle_FtrJ 

Fyle  :  Out  File); 

—  Convert  to  and  from  the  type  file  to  the  type 

—  file_ptr.  For  system  use  only,  Not  to  be  used  in 

—  user~programs . 

Function  Standard_Input  Return  File; 

—  Returns  the  initial  default  system  input  file 

Function  Standard_Output  Return  File; 

—  Returns  the  initial  default  system  output  file 

Function  Current_Input  Return  File; 

—  Returns  the  current  default  input  file 

Function  Current_Output  Return  File,' 

—  Returns  the  current  default  output  file 

Procedure  Set_Input (Fyle  :  In  File); 

—  Set  thi  current  default  input  file  to  fyle 

Procedure  Set_Output (Fy le  :  In  File); 

—  Set  the  current  default  output  file  to  fyle 


Package  Strlib  Is 

—  String  Handling  Package  Specification 
—  last  Modified  6/  3/82 


—  Copyright  1982  RH  Software,  P.C.  Box  1512,  Madison 

—  WI  53701.  Permission  is  hereby  given  to  distribute 

—  Object  Code  produced  from  these  libraries. 


Subtype  Mstring  Is  String(255); 

—  Maximum  string  length 
Subtype  Strlndex  Is  Integer  Range  0..255J 
—  Maximum  string  indices 

Function  length  ( str  :  In  Mstrlng)  Return  Integer; 

—  Return  the  length  of  the  string 

Function  Remove  (str  :  In  Mstring;  pos.size  :  In  Strlndex) 

Return  Ms t ring; 

—  Remove  size  characters  from  str  at  pos 

Function  Insert  (source, dest  :  In  MStringJ 

pos  :  In  Strlndex)  Return  MString; 
—  Insert  source  Into  dest  at  pos 

Function  Extract  (str  :  In  Mstring;  pos.size  :  In  Strlndex) 

Return  Mstring; 

—  Extract  size  characters  from  str  at  pos 

Function  Position  (pattern, str  :  Mstring)  Return  Integer; 

—  Return  the  position  of  the  first  occurance  of  pattern 
—  in  str,  or  0  if  there  is  none 

Function  char_to_str  (char  :  character)  Return  String; 

—  Convert  a  character  into  a  string  of  length  1 

Function  str_to_int  (str  :  Mstring)  Return  Integer; 

—  Convert  a  string  into  an  integer 

Function  int  to_str  (int  :  Integer)  Return  Mstring; 

—  Convert  an  integer  into  a  string 


End  Strlit; 


Package  Chainlib  Is 

—  The  program  chaining  and  calling  library 
—  Last  modified  9/  S/32 

—  Copyright  1S62  PR  Software,  P.0.  Box  1512,  Madison 
—  VI  E37C1.  Permission  is  hereby  given  to  distribute 
—  Object  Code  produced  from  these  libraries. 

Procedure  Chain (Sir  :  In  String); 

—  Chains  a  program,  saving  the  data  segment 
—  Note:  The  Jlib80  library  must  be  the  same  for 

—  both  the  chaining  and  chained  programs  foi  this 

—  routine  to  work 

Procedure  Simple _Chain(  St  r  :  In  String); 

—  Chains  a  program,  destroying  the  data  segment 

Procedure  Frog_Call (Str  :  In  String); 

—  Calls  a~program  (Not  Implemented) 

Procedure  Prog_Return ; 

—  Fetorns  from  a  called  program  (Not  Implemented) 


End  Chainlib; 


APPENEIX  C 


PCS  UNITREP  COMPUTER  LISTING 


I 

I 


This  appendix  provides  the  computer  listing  cf 
UNITPEP  SC3SYSTIM.  The  listing  is  organized  to 
the  structure  of  Chapter  IV  (Implementation): 

Basic  Program  Support  Components 
consio 
printio 
urglobal 
urutil 
urtest 

Program  lata  Components 
urglhl 
urlocalA 
uradminS 
urairB 
unitrepA 
unitrep3 

Program  Control  Components 
uni  rrep* 
unitrepl 
uni trep2 
unitr ep3 
filerA 
filerB 

Program  Operative  Components 
urlocal 
urlocall 
uradmin 
urair 
urairl 
urair2 
ural  r3 

Miscellaneous 

ini tialA 
initial3 


the  PCS 
follow 


PACKAGE  consio  IS 

—  This  package  provides  console  screen  oriented 

—  i/o  procedures  for  <4  Datamedia  Elite  2500 

—  terminal 

bell:  CONSTANT  :=  CHARACTER 'VAI (?) ;  —  Aural  beep 

carriage  return:  CONSTANT  :=  CEARACTER 'VAI ( 13 ) ; 
tab:  CONSTANT  :=  CHARACTER  'VAL  (S  )  J 

PROCEDURE  getxy  immediat e (x ,y :  IN  INTEGER; 

char:  CUT  CHARACTER'; 

—  Fositions  the  cursor  at  screen  position  x,y 

—  waits  for  exactly  one  character  to  be  input. 

—  Converts  to  3AUrOT/CCR  only  characters 

PROCEDURE  getxy(x,y:  IN  INTEGER; 

terrp:  CUT  STRING? 
f ield_length :  IN  INTEGER); 

—  This  procedure  positions  the  cursor  at  screen 

—  position  x,y  reads  the  input,  terrp  for  a  rraxiruir 

—  of  field_length  characters,  and  converts  to 
—  EAUDCT/CCR  characters  if  required. 

PROCEDURE  put xy(x,y:  IN  INTEGER;  terrp:,  IN  STRING); 

~  Positions  the  cursor  at  screen  position  x,y  ana 

—  writes  the  input,  temp,  at  this  position. 

PROCEDURE  clear_screen» 

—  Clears  the  console  display. 

EUNCTICN  mark(xx,yy:  IN  INTEGER)  RETURN  BOOLEAN; 

—  Checks  for  an  <X>!tab  or  carriage  returnlspa.ee 

—  at  the  x/y  coordinates 

PROCEDURE  clear_field( x,y ,len :  IN  INTEGER); 

—  Clears  the  screen  field  of  length  ien  at  x,y 

ENT  consio; 
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WITH  strllb  ,io  ,util ;  —  JANUS  library  packages 
PACKAGE  EOEY  consio  IS 

—  This  package  provides  console  screen  oriented 

—  .i/o  procedures  for  Eatamedia  Hite  2500. 

—  I*ust  be  tailored  to  the  particular  system. 

—  terminal  dependent  constants 
position  cursor:  CONSTANT  :  =  CFABACTFP 'VAL (12  ); 
clear:  CONSTANT  :=  C  HA  PACTS?  'VAL  (3i? )  J 
rubout:  CONSTANT  :=  CHARACTER ' VAL ( 12?: i 
screen_  tack  space  :  CONSTANT  :=  CHARACTER  'VAL  (fi  ) » 

FROCErURE  gotoxy (x ,y :  IN  INTEGER)  IS 

—  This  procedure  is  rrcdified  for  tne  screen  of  a 
—  IATANEHA  ELITE  2500  terminal.  It  must  be  chan 

—  as  required  for  each  new  terminal 
xx, yy:  INTEGER > 

BEGIN 
CASE  x  IS 

WEEN  0..31  =>  xx  :=  x  +  S6; 

WEEN  32.. 53  =>  xx  :=  x  +  32; 

WHEN  €4 . .78  =>  xx  :=  x  -  32; 

WEEN  OTEERS  =>  PUT(" Invalid  x  coordinate”); 
xx  : =  96; 

ENI  case; 

CASE  y  IS 

WEEN  e..22  =>  yy  :=  y  +  96; 

WHEN  OTHERS  =>  POT ( "invalid  y  coordinate"); 
yy  :=  se; 

ENE  case; 

—  set  addressing  mode  and  coordinates  for  xy 

—  terminal  addressing 
PUT(position  cursor); 

PUT( CHARACTER 'VAL(xx ) ) ; 

PUT (CHARACTER 'VAL(yy) ); 

ENE  gotoxyi 

PROCEEURE  baudot  convert^  char:  IN  CUT  CHARACTER)  IS 
USE  util;  —"Fait 

—  Takes  char  and  converts  to  legal  3AUEOT/OCR 

—  character.  IF  lower  case,  capitalizes.  If 

—  illegal  converts  to  null  and  puts  out  an  aural 

—  tone 
BEGIN 

CASS  char  IS 

—  no  action  on  these  control  characters 
WHEN  CHARACTER ' VAL(  0 )  j  CHARACTER 'VAL ( 2 )  j 
CHARACTER 'VAL(4) . . CHARACTER 'VAL ( 8) ! 

CHARACTER 'VAL (10). . CHARACTIP 'VA L (31 ) ! 
CHARACTER 'VAL (127)  =>  NULL 


—  abort  and  reboot  on  control-c 
VEIN  CEARACTER'VAL(3)  =>  clear, screen J 

PUT(’’User  Coiriranded  Abort 
Halt; 

—  allow  tab  'VAl(9)  to  function  as  a  rrark 
VEIN  CHARACTER'VAL(S)  =>  char  :=  'X'; 

—  allowable  £A?JECT  characters 

wpen  'c'..'s'  !  'a'..'z'  !  !  '?'  !  's'  ! 

!  '&'  i  '#'  i  "'  1  '('  !  ')'  |  | 

'»'!  'i'  l  I  '  '  ->  noil; 

—  capitalize  lower  case 
WEI N  'a  . 'z  '  -> 

char  :=  CHARACTER 'VAL(  '’HARaCTEF. 'FOS (char  )  -3Z  >; 
--  convert  all  others  to  null  and  notify 

—  user  by  the  bell 

WHIN  OTHERS  =>  char  :=  CHARACTER 'VAI (?) i  PUT (bell); 
ENI  case; 

ENI  baudot_convert ; 

PROCEEURI  getxy  immediate  (x  ,y  :  IN  INTEGER; 

char:  CUT  CHARACTER)  IS 
USE  i o ;  —  Open, Close 

—  gets  exactly  one  character  from  screen  position 

—  x,y  and  converts  to  3AUE0T/0CR 
fyle:  EIIEJ 
3 EG  IN 

Openffyle,  KBE : '  ,F.ead_0nly)  ;  —  JANUS  keyboar 

gotoxy (x  ,y ) ; 

GET ( fyle, char) ; 

CLOSE (fyle); 
baudot  convert (char ) ; 

PUT ( char ) » 

ENI  getxy_irnrediate ; 


PPOCEELRE  getxy (x ,y :  IN  INTEGER ; 

temp :  OUT  STRING; 
fie‘ld_length:  IN  INTEGER)  IS 
USE  strlibj  —  Length  , Ex  tract , Char, to  Str 

—  This  procedure  positions  the  cursor  at  screen 

—  position  x,y  reads  the  input,  terrp  fcr  a  maximum 

—  of  field_length  characters,  and  converts  to 

—  BAUEOTOCR  characters  if  required.  Mar.ipulation 

—  for  character  deletion  allowed. 

key:  CHARACTER? 
xnext:  INTEGER  :=  xi 
BEGIN 
temp  := 

LOOP 

getxy  immedlate( xnext ,y ,key) ; 


no  more  incut 


EXIT  WHIN  key  =  ca r riage_ return > 

15  key  =  rubout  AND  xnext  >  x  THIN 
F  DT ( screen_backspace ) » 

FUT( '-  ) ;  —  erase  screen  character 

temp  :=  Extract  ( temp,  1 , Length  (temp) -1 )  ; 

— remove  from  string 
xnext  :=  xnext-i; 

ILSII  key  =  rubout  and  xnext  =  x  THIN 
FUT(bell) ; 

EISIF  key  =  CEARACTER'VAL ( 0)  THEN 
NOLLi  —  illegal  character 
ELSE 

temp  :=  temp  &  Char_to_Str (key ) ; 
xnext  :=  xnext+i; 

EXtT  WEEN  xnext  >  field  length  +  x  -  1? 
ENI  IF; 

ENI  icop; 

—  stric  trailing  blanks 
FOB  i  IN  FEVERS!  i . .Length( temp)  LOOP 
EXIT  WHIN  temp(i)  /=  '  '; 

IF'temp(i)  =  *  '  THIN 

temp  :=  Extract (temp, 1 , i — 1 ) ; 

INI  if; 

ENE  icop; 

INI  getxy ; 


BROCHURE  putxy (x ,y :  IN  INTEGER;  temp:  IN  STRING)  IS 

—  Positions  the  cursor  at  screen  position  x,y  and 
—  writes  the  input,  temp,  at  this  position. 

BEGIN 

gotoxy(x,y) ; 

PUT (temp ) ; 

ENT  putxy; 

PROCEDURE  clear_screen  IS 

—  Clears~the  console  screen 
BEGIN 

PUT (clear) ; 

ENI  clear  screen; 


FUNCTION  mark(xx  ,yy :  IN  INTEGER)  RETURN  BOOLEAN  IS 

—  used  in  menu  selection  areas  where  a  boolean 

—  value  is  required  by  the  program, 
key:  CHARACTER; 

BEGIN 

LOOP 

getxy  immediate(xx,yy  ,key ) ; 

IE  key  =  '7'  THEN 
RETURN  TRUE? 


EISIF  key  =  tab  THEN 
RETURN  TRUE; 

EISIF  key  =  carriage  return  THEN 
RETURN  FALSE? 

EISIF  key  =  '  '  THEN 
RETURN  FALSE; 

ELSE 

FUT(bell) ; 

ENE  if; 
eni  icop; 

ENI  jrark? 

PROCEEURE  clear_field(x,y  ,len :  IN  INTEGER)  IS 

—  clears  screen  data  fields  for  len  characters 
BEGIN 

FCR  i  IN  0. .len-1  LOOP 
putxy(x+i ,y ) ; 

ENI  loop; 

ENE  clear  field; 


ENE  consio; 


PACKAGE  printio  IS 

—  Provides  interface  to  the  printer 
line_count:  INTEGER; 

—  format  parameters 
(rax_lines_in_page,max_line_length , 

line, spacing ,header_lines : INTEGER  ; 

margin , end_trans :  STRING; 

printer:  FILE; 

PROCEDURE  printer  on; 

PROCEDURE  printer^of f J 

PROCEDURE  NEW  PAGE? 

—  Fage'eject 

TYPE  format  IS  (msg, ocr , t ex t )  ; 

TYPE  format_state  IS  ARRAY 

(format  RANGE  msg..  text)  OF  BOOLEAN 
format_is:  format, state; 

PROCEDURE  set,f ormat ( format_t7pe :  IN  format); 

—  sets'page  formatting 

PROCEDURE  put_prin.t  er  (con  tent :  IN  STRING); 

—  prints  the  content 


WITH  strlito ,io»  — JANUS /A IA  libraries 

PACKAGE  ICEY  printlo  IS 

—  Frovides  interface  to  the  printer 

—  for  Teletype  Corp  model  40  printer 
page_eject :  CONSTANT  :=  C HA PA C?E R*VftL( 12 ) * 

PROCEEUPE  printer_on  IS 
USE  io>  —  Cpen 

—  JANUS/AEA  crir. ter  is  1ST: 

BIGIN 

Open ( printer, "LST ,Wri te_Cnly ) ; 

ENE  printer_on; 

PROCEEURE  printer_off  IS 
USE  io;  —  CLOSE 

BEGIN 

CLCSE  (printer)  »* 

ENE  printer_off> 

PROCEEURE  NEW_FAGE  IS 

—  page  eject.  Can  te  eliminated  with  AEA 

—  supporting  the  NEW  FACE  procedure 
BEGIN 

POT  ('printer  ,page_ eject  5 ; 
line  count  :=  1? 

ENE  new_page; 


FPOCEEORE  set_f ormat  (format  _type  : 
—  sets'page  formatting 
BEGIN 


format_is(msg)  :=  EAISE » 
forma t_i s( ocr)  :=  FALSE? 
format~is(text )  :=  FALSE; 

IE  format_type  =  msg  TEEN 
format_rs (msg)  :=  TRUE; 
max_lines_in_page  :=  42; 
maz~line_length  :=  €9* 
line_spacing  :=  l; 
headir_lines  :=  S; 
margin  :=  ”  tt  "» 
end_trans  :=  "3T"> 

ELSIE  format_type  =  ocr  THEN 
f ormat_is (ocr )  :=  TEUEJ 
max_lines_in_page  :=  19* 
max_line_length  :*  £9; 
lini_spaciag  : =  2; 
header  lines  :=  e; 


margin  :  = 
end  trans  := 


NNNN 


IN  format) 


IS 


iee 


f 


ELSE  —  forn,dt_type  -  text 

forjrat_is  (text )  :=  TRUE; 
rax_lines_in_page  :=  £5; 
irax”line_Iength  :*  80> 
line_spacing  :=  l; 
headir_lines  :=  6» 
margin  := 
end  trans  :=  » 

ENI  If; 

ENE  set  forirat; 


PROCEEURE  put_printer (con tent :  IN  STRING)  IS 
USE  strlib;-  —  Length  .Extract 

—  crints  the  content 
buffer :  STRING ; 

BEGIN 

buffer  :*  content; 

—  llrrlt  line  length  according  tc  format 
IF  Length(buffer)  >  rrax_l ine_length  THEN 

buffer  J=  Extract (buffer, lTmax  line  lengt 
ENI  if; 

buffer  :=  margin  &  buffer; 

—  print  header 

IF  line_count  =  1  TEIN 

FOR  i~IN  1.. header  lines  LOOP 
NEW  LINE(printerJ; 

ENE  LOCP; 

ENI  if; 

—  print  line 

PUT (printer .buffer ) ; 

—  line  spacing 

FOR  i  IN  l..line  spacing  LCCP 
NEW  LINI(prlnter); 

ENE  loop; 

line_count  :»  line_count  +  l; 

— ’page_eject 

IF  line  count  >  max  lines  in  page  TEEN 
NEW  page; 

ENI  if; 

ENI  put_printer; 

ENE  printio; 


WITH  prlntio  , 
consio , 
urgl bl > 

PACEAGI  urglobal  IS 

OSE  printio,  —  for  forrrat  In  program  status 

consio,  —  for  carri age_return 

urglbi;  —  for  comtrent_set/process_corrment 

—  global  variables 


fyle:  Till; 


key:  CHARACTER; 


—  single  key  read 


x 
n : 
c 
a 
r 


CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 


—  constant  single 


'X' 
'N  ' 
'C' 
'A' 
'R' 


space:  CCNSTANT  := 


7- 
hi 
e  i 
d  : 


CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 


Characters 
:=  'T'J 
:=  'H'; 


;  dues: 


=  'd'  ; 

CONSTANT 


no_input:  CCNSTANT  :  =  carriage_returni 


S  *? 


*ile_buffer .buffer :  STRING;  —  file/keyboard  buffers 
tlankln ,dashln:  STRING(SO);  —  screen  lines 

—  strings  of  length  1 

dash,blank,d_mark,n_mark,r_mark  ,x_mark  ,y_rrark , 
ajrark,  s  tar  ?null_st  ring:  "STRING? 

success .reselect :  300LEAN;  —  general  booleans 
nuirber:  INTEGER;  —  general  numbers 


—  global  action  data 


TTPE  action  IS  (draft ,nevw, modi fy, print , 

log, erase, verify, quit) ; 

TTPE  actlon_state  IS  ARRAY  (action  RANGE  draft.. cult) 

of  boolean; 


action  is:  action  state; 


—  global  areas 


TTPE  areas  IS  ( pers  .adirln  .combat , air  , equip , specap , 

defer  se , reserve , ty com .local ) ; 
TTPE  area_state  IS  ARRAY  (areas  RANGE  pers.. local) 

Of  rOCLiAN  * 


area  is:  area  state; 


TTPE  unit  type  IS  (  ship ,  subma  rir.e  ,ai  r  unit  .shore  .other) ; 


—  prograrr  status  structure  used  to  communicate 

—  between  the  program  modules 
TYPE  program  status  IS 

RECORD 

unit:  unit_type? 
initial_ent ry :  BOOLEAN? 
print_t railer :  BOOLEAN? 
message_transmitted  :  BOOLEAN? 
current“action :  actlon_state? 
current_area :  area_state* 
current  format:  format  state? 
printing_line :  INTEGER! 
workflleT  STRING(14)? 

ENT  RECORD? 

program :program_status? 


PROCEDURE  border? 

—  screen  outline 

PROCEDURE  prccess_comment (data_set :  IN  STRING? 

comment:  IN  CUT  comment_set ) ? 

—  processes  free  text  ( A NFN/RN5S )  data  sets 

PROCEDURE  print_comment (4ata_set :  IN  STRING)? 

—  prints  amplification  (AtfPN)  data  sets 

PROCEDURE  error ( number :  IN  INTEGER); 

—  Frovides  console  error  messages 

PROCEDURE  help(data  set:  IN  STRING); 

—  Frovides  RCS  UNITREP  HELP  information 

FROCEDUPE  view  teble(fllename:  IN  STRING); 

—  Provides  user  with  the  option  to  examine  valid 

—  table  entries  from  CPNAYINST  3503.5 

FUNCTION  required  print (changedi tern  :  BOOLEAN) 

RETURN  BOOLEAN 

—  determines  if  a  given  data  set  is  to  be  printed 

—  for  the  required  report 

PROCEDURE  draft  aid (data  set:  IN  STRING); 

—  provides  assistance  in  form  of  a  draft  document 

—  gets  the  draft  information  for  data_set 


let 


END  urglobal? 


—  JANUS/ATA  libraries 


fcITE  lo, strlit, 

corsio  .printio , 

— #  urtest,  —  in  procedure  error  help 

urglbi; 

PACKAGE  IOIT  urglobal  IS 
USE  ccnsic, 
urgltl ; 

—  global  variables  initialization  performed  here  as 
--  JANUS/ADA  cannot  initialize  structured  variables. 
—  Would  be  accomplished  in  specification  in  full 

—  ADA . 

PROCEDURE  border  IS 

—  draws  the  standard  border 
BEGIN 

clear_screen; 
putxy (20,0, 

RCS  ONITPEP  SI)  I  ST  STEP*’); 
putxy(0, 2, dashln) ; 
putxy  (0,21, dashln)  ,* 

ENE  border? 

PROCEEURE  process_comment(data_ set :  IN  STRING; 

comment:  IN  OUT  comment_set)  IS 
USE  strlibi  — Extract 

USE  io;  — Open, CLOSE, Create, Delete, GI?_LINE 

—  processes  all  comment  sets  10  lines/time 

content:  ARRAY  ( 1. .max_comment )  OF 

STRI NG( max_line  length); 

slo:  CONSTANT  :*  5;  — screen  line  offset 

PROCEIURE  commentmask  IS 

USE  strlibj  —  Extract 

—  draws  the  comment  screen 
3EGIN 

border? 

IE  Extract (data_set ,1 ,4)  *  "RMKS ”  THEN 
putxy (0 ,3 , "REMARKS  SECTION  -  PAGE  ” 

&  Ext ract (data_set ,5 ,1 ) ) ; 

ELSE  —  comment  is  remarks 

putxy (0  ,3, "AMPLIFICATION  SECTION  -  "  t  data  set); 
ENE  if; 

FCE  line_number  IN  1 .  .max_comment  LOOP 
putxy(£,line_number  +  slo, 

Extract (dashln,!, max  line  length)); 

ENE  LCCP; 

ENI  comment  mask; 


PROCEIURE  fill  commentmask  IS 
BEGIN 

corrrrentmdsk; 

FOB  line_number  IN  1.  .corrrrent  .number_of_  1  ines  LOOP 
putxy(5,line  number  +  slo  , content  (Iine_number) }; 

ini  loop; 

ENI  fill_commentinask; 

BEGIN 

—  read  in  existing  data 
IF  comment  .change  THIN 

Cpen(fyle  ,d<std_  set  &  "  .ANP"  ,Read_0r.ly ) ; 

FCP  line_numter  IN  1. . comment. number_of_l ines  LOOP 
contentfline  number)  :=  GET  LINE(fyle); 

INI  loop; 

FOB  line_number  IN  comren t . number_of_lines+l . . 

rrax  comment  LOOP 

content  (line  number)  :=  null_string; 

INI  loop; 

CLCSE( fyle) ; 

FNI  if; 

—  process  corrrrent  data 
IE  NOT  comment .change  TEEN 

corrrrent  .nurrber_of  _lines  :=  0> 
corrrrentrrask; 

FOB  line_number  IN  1 .  .max_commen t  LCOF 
content-dine  number)  :=  null_string>* 

FNE  LOOP; 

FOP  line_number  IN  1.  .max_comment  LOOP 
getxy_Irrmedlate(  z  fl  ioe_numbe  r+slo  .key ) ; 

EXIT  WEEN  key  =  no_iuput  CP  key  =  space; 
comment .change  TRUE; 

getxy(6  ,line_number  +  sic .content (line_numter) ,61) ; 
content ( line~number )  :=  Char_to_Str  (key  ) 

&  content  ( llne_r.umber) ; 
comment .number  of  lines  :=  line  number; 

INE  loop; 

FNI  if; 

comment_page:  LOOP 
fill_commentmdSk; 

putxy ( Z  ,20 , "<ENTER>  to  continue,  <C>  to  change,  "  & 
<E>  to  erase,  <?>  for  help”}; 
getxy  irrmediate(?3,20,key); 

CASE  key  IS 

WHEN  no_input  J  space  EXIT; 

WPEN  c  => 

putxy (0,20 ,b lan kin) ; 

putxy(0, 20, "Position  cursor  to  line  to  changett” 
&"and  type  over  -  ENTIRE  LINE  >VUST  EE  CHANGED"); 
FOR  line_number  IN  1,.  max_comment  LOOP 
getxy_Immediate(5 ,line_number  -*■  slo  .key); 


IF  key  =  no_input  05  key  =  space  TEEN 
putxy (5 ,lln e_numter+slo  , 

content  (llne_numter) )  ; 

ELSE 

clear  field(€,line_number  +  slo,61); 
getxyT6,line_numter  +  slo,  buffer,  61) ; 
content ( line_nunnber)  :=  Char_to_3tr(key) 

&  buffer; 

IF  line_nurrber  >  comment  .number  of  lines 

TEEf. 

consent  .nurrter  cf_lines  line_number; 

END  if; 

INI  if; 

ENI  loop; 

WEEN  e  =>  comment . change  :=  FALSE; 

FOP  line_number  IN  1.  .max_comment  ICO? 

content  (line_nurrber)  :=  null_strir.g; 

FNE  loop; 

WHEN  ques  =>  help  ( "akPN/BMKS ”  ) ; 

fill  ..comment  mask; 

WEEN  OTHERS  =>  error(6);  —  Incorrect  input 

EM  case; 

IF  content(l)  *  null_string  TEIN 
comment .change  :=  FALSE; 
comrent .number  of_lines  :=  0; 

ENr  if; 

ENI  LOOP  comment_page; 

—  Write  data  to  file  if  required 
EFLFTE (data_set  &  ".Af-P”) ; 

IF  comment. change  TEEN 

Create (fyle ,data_set  &  ".AMP”, Write. .Only) ; 

FOP  line_number  IN  1 .  .commen  t .  number_of_.l  ines  ICC? 
FUT( fyle .content ( line  number)); 

NEW  LINE(fyle); 

SNL  LOCPi 
CLOSE(fyle); 

ENI  if; 

INI  process_comment ; 

PROCHURI  print_comment ( data_ se t :  IN  STRING)  IS 
USE  printioi  — put_printer 

USE  ioi  — Open, GET_LINE,ENE_CF_FILF, CLOSE 

—  print  any  amplif icati on/remirks  lines  required 

—  for  old  messages  -  .amp  files  are  purged 

—  when  message  is  logged  as  transmitted 
BEGIN 

Open(fyle  .data  set  &  AI*F"  .Read  Only); 
file  buffer  :«_"AMPN/"  &  GET  LINE(fyle); 

ICC?” 

IF  ENT_0F  FILZ(fyle)  TEFN 
file  bu?fer  ;=  file  buffer  & 


put  printer(file  buffer); 
CLCSI(fyle); 

exit; 

ELSE 

put  printer(file  buffer); 
file  buffer  :=  GET_LI NE( fyle) ; 
END  IF? 

ENE  loop; 

END  print_comment; 


PROCEDURE  error (number  :  IN  INTEGER)  IS 
USE  lo.strllb; 

— #  USE  urtest;  —  for  test_flle 

—  processes  error  messages 

index:  INTEGER,* 
message:  STRING (60); 

BEGIN 

Open(  fyle,’*ERRPSG"  ,Read_0nly ) ; 

Index  :=  i; 

LOOP 

message  :=  Get_Line(f yie) ; 

IE  number  =  Index  THEN 

exit; 

ELSIF  End_of_File ( fyl e)  TEEN 
message  :*  Int  to  Str(number)  & 

”:  No  t~f ound  in  EBRPSG” ; 

EXIT; 

ELSE 

Index  :=  Index  +  l; 

END  if; 

ENE  icop; 

Close(fyle) ; 

PUT (tell); 

putxy<0,22,"***  ERROR  "); 

putxy  (10 ,22  .message  &  <ENTER>” )  ; 

getxy_lmmedlate(78,22,lcey ); 

— #  remove  next  2  from  production 
*  FUT( test  file, "ERROR  message); 

ft  New_LlneTtest  file); 

putxy (0,22, blankln) ; 

ENT  error? 


PROCEEURE  help(data  set:  IN  STRING)  IS 
DS1  lot  — Open, CLOSE, GET  LINE 

— #  USE  urtest;  —  test_?ile 

—  provides  help  information  for  a  pdrticular  ddta 

—  item 

BEGIN 

border; 

putxy(0,3,  HELP  INFORMATION  -  &  data  set); 

NEW  IINEJ 

Open(fyle,"EFLP. TXT", Read  Cnly) ; 

LOOP 

f ile_tuff er  :=  GET_LINE(fyle ) ; 

IE  file  buffer  =  data  set  TEEN 
LOOP 

file  buffer  :*  GET  LINE(fyle); 

ZXIT’WHIN  f ile_buff er  =  —  delimeter 

FUT(file_buffer);  NEW  LINE;  --  display  line 
END  loop; 

putxy ( 25 ,20  ,  "<ENTER>  to  Continue"); 
getxy_imrrediate{44,20  .key ) ; 

exit;- 

ELSE 

— keep  searching  for  data  set  until  end 
EXIT  WHEN  ENE__CF  FILE(fyle); 

ENI  if; 
enl  loop; 

CLCSE(fyle); 

— #  keep  track  of  help  accesses 
— #  remove  from  production 
— #  FUT( test  file, "HELP  -  "  S  data  set); 

~ #  NEW  LI Nlltest  file); 

ENE  helpT 

FROCEEUPI  view  table ( filename :  IN  STRING)  IS 
USE  io ;  --  Open , CLOSE, GET  LINE 

BEGIN 

PUT (tell); 

putxy (0,22, "<ENTER>  to  Continue,  ENTER  <X>"  & 

"  to  View  Valid  Entries:"); 

IF  mark(£2,22)  TEEN 

Open( fyle, filename ,Read_Cnly ) ; 

WHILE  NOT  ENE_OF_FILE(fyle)  LOOP 
torder ; 

putxy (9 ,1 , "VALIE  ENTRIES  (REF.  OPNAVINST  "  & 
"3503.5  "  &  filename  &")"); 

I0R  y  IN  3. .20  LOOP 

EXIT  WEEN  ENE  OF  FILE (fyle); 
buffer  :=  GET_LINE( fyle) ; 
putxy(K,y .buffer) ; 


END  ICCP; 

putxy (0 ,22, "<ENTER>  to  Continue,  ENTER  <X>  tc  "  & 

JJ ^  •  J  | 

EXIT  WHEN  irarK(40,22) ; 

INC  locp; 

CLCSZ(fyle) ; 

ENE  if; 

INC  view  table; 


FUNCTION  requi red_print (changed  item:  300LEAN) 

RETURN  BOOLEAN  IS 

BEGIN 

IF  action_is(draft)  OR  action_is (verify )  CR 
(action  is(print)  ANC  changed  item)  TEEN 
RETURN  TRUE; 

ELSE 

RETURN  FALSE? 

ini  if; 

INI  requlred_print ; 


fROCEEURE  draft.aid  (data_set:  IN  STRING)  IS 
USE  printio,*  — nut  printer 

USE  i o J  —Open, CLOSE, GET_LINE,ENE_CE_FILE 

—  provides  printed  formats  for  the  assistance 

—  of  drafting  a  unitre? 

BEGIN 

put  printer(nuil  string); 

Open (fyle,"DRAFT7TXT", Read  Only) ; 

LOOP 

f ile_buff er  :=  GET_LINE ( f yle ) ; 

IF  flle_tuf fer„=  data_set  THEN 

put_printer ( "******  "  &  file  buffer  & 

-  EATA  SET  INFORMATION  ******"); 

LOOP 

f i le_huf f er  :=  GET_LINE ( fyle ) ; 

EXIT  WHEN  file_buffer  =  —  deiiireter 

put  printer(file  buffer);  —  Printline 
ENE  IOC?; 

put_pri nter ( null_st  ring ) ; 
put_prlnter( null~st ring) ; 
put'printer ( null's t ring) ; 

exit; 

ELSE 

— keep  searching  for  data  set  until  end 
EXIT  WEEN  ENE  OF  FILE ( fyle  ) ; 

EM  if; 


ini  i cop; 

CIOSI (fyle) * 
INI  draft  aid; 


BEGIN 

—  strings  of( 1 

a_mark  :=  "a”;  x_nnark  :=  "X’»  n_mark  :  =  "n"; 
y~irark  :=  "l”;  d~»rark  :=  ’* D * »  r_irQrk  :  =  ”R'‘; 
blank  :=  ’  dash  :=  star  := 

null_string<<  :=  ;  —  no  characters 

fclankln  :*  ”  ’’  & 

••  .• 

dashln  :=  " - ”  6. 


ENE  urglctai; 


1?€ 


PACKAGE  urutil  IS 

—  This  package  provides  utility  routines  to  oe  used 

—  in  constructing  a  UNITS!? 

PPOCirUPS  verify  number ( numbe r  of  digits:  IN  INTEGER; 

teirps  IN  OUT  STRING? 
success:  OUT  9 COLEAN; 
number:  OUT  INTEGER); 

—  This  procedure  converts  a  string  of  numerical 

—  characters  to  an  integer  c r  returns  an  error  If 

—  any  character  in  the  string  is  not  'z'-'d'. 

FRCCErUPE  verif y_d  tg(dtg:  IN  CUT  STRING; 

success:  CUT  BOOLEAN); 

—  Error  checks  date-tine  groups. 

FROCErUPE  verify_lat _long(lat _long:  IN  OUT  STRING; 

success:  OUT  EOCLEAN); 

—  Error  checks  lat/long  position  reports 

JUNCTION  checksur  (teirp  :  STRING)  RETURN  INTEGER; 

—  performs  checksurrs  on  string  teirp 

FUNCTION  zero  pad(  ov,moer_of  digits:  INTEGER; 

terp:  STRING)  RETURN  STRING; 

—  pads  a  string  which  represents  a  number 

—  with  zeros  to  fill  out  the  field  of  digits 

FUNCTION  getxy  digits (x ,y , number  of  digits:  INTEGER) 

RETURN  STRING? 

—  gets  number_of_digits  at  r,y  and  error  checks 
ENT  urutil; 


WITH  strlit,  —  JANUS/AEA  Libraries 

consio , 
urglobal » 

PACKAGE  ECU  urutil  IS 
USE  consio; 

USE  urglobal? 

—  This  package  provides  utility  routines  to  be  used 
—  in  constructing  a  UNITREP 


PROCEPURE  verify  number ( num.be r  of  digits:  IN  INTEGER; 

temp:  IN  OUT  STRING; 
success:  OUT  3COLSAN; 
number:  CUT  INTEGER)  IS 
USE  strlib?  —  Length, Str_to_Int 

—  This  procedure  converts  a  string  of  numerical 

—  characters  to  an  integer  or  returns  an  error  if 

—  any  character  in  the  string  is  not  9'. 

—  Largest  valid  entry  is  32?e?. 

3EGIN 

success  :=  TRUE; 

IE  Iength(terrp)=  0  THEN  —  check  for  nc  input 
success  :=  FALSE; 

ELSE  —  check  for  ascii  'ii'  9 ' 

temp  :=  zerc_pad (number_of_digi ts ,temp ) ; 

EOF  1  IN  *1 . .  number_o  f  digits  LOO? 

CASE  temp(i )  IS 

WEEN  '  '  =>  temp  (1 )  :=  ' 0'; 

WEEN  =>  null; 

WHEN  OTHERS  =>  success  :=  FALSE; 

ENI  CASE; 

ene  iocf; 

ENE  IE; 

IF  success  THEN 

number  :=  St r_to_Int ( temp ) ; 

—  rangi  check 

IE  number  NOT  IN  0. .  (10**nutrber_  of _d  igi  ts )  -  1  TEEN 
success  :=  FALSE; 

FNE  if; 

ELSE 

number  :=  0; 

ENE  IE; 

ENE  verify^numoer ; 


JUNCTION  checksum (temp :  STRING)  RETURN  INTEGER  IS 
USE  strlib?  — Extract ,Str_to_Int .Length 

BEGIN 

number  :=  0? 

FOR  i  IN  1 . .Length( temp )  LOCF 
number  :=  number  + 

Str_to_Int(Ixtract( temp ,1,1)); 

IF  number  >=  10  THEN 

number  :=  number  -  10; 

ENI  IF; 

ini  icop; 

RETURN  number; 

ENI  checksum; 

PROCEDURE  verify_dtg(dtg :  IN  CUT  STRING? 

success:  OUT  BCCLEAN)  IS 
USE  strlib;  — Length ,Extrac t 

—  Error  checks  date-time  groups, 
sue:  fcolsan; 

temp:  STRING; 
mon:  STRING(3)? 
dnum,hnum,mnum,ynum  :  INTEGER; 

3EGIN 

success  :=  TRUE; 

—  check  for  incomplete  string 
IF  (Length(dtg)  /=  12)  TEEN 

success  :=  FALSI; 

ELSE 

—  rangecheck  date  1-31 
temp  :=  Extract (dtg, 1, 2) ; 

verl fy_number (2 ,temp ,suc  ,dnum); 

IF  (  NOT  sue  OR  (dnum  <  1)  OR  (dnum  >31)) 
THEN  success  :=  FALSE?  EM  IF; 

—  rangecheck  hour  0-23 
temp  :*  Extract (dtg, 3, 2) ; 
verify^ number (2 ,t  emp ,suc ,hnum ) ; 

IF  (NOT  sue  OR  (hnum  <  0)  OR  (hnum  >23)) 
TPZN  success  :=  FALSE?  END  IF? 

—  rangecheck  minute  0-59 
temp  :=  Extract(dtg,5,2) ; 

veri fy_num  ter (2, temp , sue ,mnum ) ; 

IF  (NOT  sue  OR  (mnum  <  0 )  OR  (mnum  >  £9)) 
THEN  success  :=  FALSE;  END  IF? 

—  check  for  ”z"  seperator 
temp  :=  Extract (dtg, 7, 1) ; 


IF  (temp  /=  "Z")  THIN  dtg(?)  :=  'Z';  ENE  IF; 

—  rangecheck  month 
mon  :=  Ext ract (dtgA8 ,3 ) ; 

IF  NCT  (  (mon  =  ’jAN  )  OR  (mcn="lEB”)  OR  (mon="«AR") 

OR  (mon="APR” )  OR  (mon=>AY")  OR  (mon=”jUN”) 

OR  ( mon=” JUL” )  OR  (mon="AUG")  OR  (mon="S2P" ) 

OR  (mon="OCT” )  OR  (mon=”NCV")  OR  (mon=”EEC")  ) 
THIN  success  :=  FALSI;  ENE  IF; 

—  rangecheck  year  S2  -  99 
temp  :=  Extract (dtg , 11 ,2 ) ; 
veri fy_rumber (2 , temp , sue ,ynum) ; 

IF  (  NOT  sue  OR  (ynum  <  82)  OR  (ynum  >  99)) 

TFIN  success  :  =  FALSI;  ENE  IF; 

ENE  if; 

IF  NCT  success 

TEEN  NULL; —  range  error  -  fall  through 
—  no  other  checks  required 
— check  for  comoinational  errors 
IIS  IF  (  (mon  =  "FEB”)  ANE 
(  (dnum  >  29)  OR 

(  (dnum  =  29)  ANE  (ynum  mod  4  /-  <a )  )  )  ) 
TEEN  success  :*  FALSE; 

ELS  IF  (((mon*"NOV")  OR  (iron**’ APR”  )  OR 

(mon=" JUN" )  OR  (mon="SIP” ) )  ANE  (dnum  >  30)  ) 
THEN  success  :=  FALSE; 

ENE  if; 

IF  NOT  success  THEN 
error(l),; 

dtg  :=  ddhhmmZf'Tryy  "; 

ENE  if; 

END  verify_dtgj 


PROCEDURE  verlfy_lat_long (lat_long :  IN  OUT  STRING; 

success:  OUT  300LEAN)  IS 

USE  strlib;  — Length, Extract ,Str_to_Int  ,Char_to_Str 
—  error  checks  lat/lo.ng  positions 


sue:  boolean; 
temp:  STRING; 

la  t_deg , lat_min , lo ng_ deg, long, min , 

lat  check, long”cheuk :  INTEGER; 

BEGIN 

success  :=  TRUE; 


15  Iength( la t_long)  /=  14  TEEN 
success  :=:  FALSE; 

ELSE 

—  check  latitude 

temp  :=  Extract  ( la t^loag,  1 , 2 ) ; 

verify  number(2, temp, sue, lat  deg); 

15  (  (NOT  sue)  OR  ( la t_deg  NCT  IN  0..S0))  THEN 
success  :=  FALSE?  ENI  15; 
temp  :=  Extract( lat_long,3,2) ; 
verify  number (2 .temp , sue , lat  min); 

15  (  (NOT  sue)  OP.  ( lat  min  NOT  IN  8..5Si)  )  THEN 
success  :=  FALSE;  ENl  15; 

15  lat  long (5)  /=  'N "  ANE  lat  long(t)  /=  'S'  TEEN 
success  :=  FALSE?  ENE  15; 

lat_long(7)  := 

—  check  longitude 
temp  :=  Extract  Uat_long,e,3 ) ; 
verify  number(2, temp, sue, long  aeg); 

IF  (  (NOT  sue)  OR  ( long_deg  NOT  IN  0..180)  )  TEEN 
success  :=  FALSE; 

ENE  if; 

temp  :=  Extract (lat_loag,ll ,2 ) ; 
verify  numoer(2 , temp, sue , long  min); 

IF  (  (NOT  sue)  OR  (long.min  NOT. IN  0..5S)  )  TEEN 
success  :=  FALSE; 

ini  if; 

IF  lat.  long(  13 )  /=  'I'  ANE  lat_long(13)  /=  'V'  TEEN 
success  :=  FALSE; 

ENE  if; 

ENI  if; 

IF  success  THEN 

—  checks  degrees  too  large 

IF  (  (Str_to  Int (Ixtractf lat  long, 1,4))  >  90_00)  CP. 
(Str_to_Int  (Extract  (lat_long  ,8  ,5  )  )  "•>  180_00!)  TEEN 
success  :=  FALSE; 

ENI  if; 

—  latitude  checksum 
temp  :=  Extract (lat_long,e,l); 
verify  r.umber(l , temp,  sue, lat  check); 

IF  (NOT  sue)  OR  ELSE 

lat_check  /=  checksum( Extract (lat_long ,1,4) )  TEEN 
success  :=  FALSE? 

ENE  if; 

—  longitude  checksum 
temp  :=  Ext ract ( lat _long , 14 , 1) ; 
verify  number (1 , temu, sue , long_ check ) ; 

IF  (NOT  sue)  OR  ELSE 


long_check  /=  checksum  (Extract  (lat_long ,8 ,5) )  TEEN 
success  :  =  FALSE? 

ENE  IF,* 

ENE  if; 

IF  NOT  success  THEN 

error(18);  t  —  invalid  lat_long  position 
lat  long  :  =  "ddirirEC-dddinrEC  "  >* 

ENE  IF? 

ENE  verify_lat_long; 

FUNCTION  zero  pad(nurrcer  of  digits:  I NTEGER > 

temp:  STRING)  RETURN  STRING  IS 
USE  strlib;  —  Length 

BEGIN 

buffer  :=  teirp; 

WHILE  Length^ buffer )  <  number_of _digi ts  LCOF 
buffer  :=  '  0”  &  buffer; 

em  loop; 

RETURN  buffer; 

ENE  zero_pad; 


FUNCTION  get  xy  digits  (x  ,y  .number  of_dlglts:  INTEGER) 

RETURN  STRING  IS 

USE  strlib?  — Char  to  Str .Extract .Length 

key:  CBARACTERJ 

buffer:  STRING? 

success:  3C0IE/NJ 

number:  INTEGER? 

BEGIN 

LOOF 

getxy_lrrrrediate(x  ,7  .key  ) ; 

IF  key  *  no_input  THEN 
buffer  :=~null  string? 

exit; 

ELSE 

tuffer  :=  Char_ to_S trfkey ) ; 

FCR  1  IN  1 .  .nurroer_o  f  _digi  ts-1  LOOF 
getxy_irrrredidte  (x+i  ,y  .key) ; 

EXIT  WHEN  key  =  no_input; 

buffer  :=  buffer  &~Char  to  Str(key); 

ENE  LCCP; 

—  strip  trailing  clanks 
FOR  i  IN’  REVERSE  1.  .Length (bvffer )  LOOP 
EXIT  WHEN  buffer ( i)  /•  '  '; 

IF  buffer ( i )  =  '  '  TPIN 

buffer  :=  Extract (buff er ,1 ,1-1 ) ; 

ENE  if; 

ENE  loop; 

IF  buffer  /*  null_string  THEN 


PACKAGE  urtest  IS 

—  Provides  for  gathering  testing  data  of  the  PCS 
—  UNITREP  system 

test_flle:  FILE* 

PROCEDURE  open_ini tial_ test  (serial :  IN  STRING); 
PROCEDURE  open_testi  —  interir edlat e  test 
PROCEDURE  close_test»  —  in terrrediate  test 
PROCEDURE  clcse_final_test; 

ENI  urtest; 
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—  JANUS/ALA  libraries 


WITE  io,strlib, 
consio » 

PACKAGE  BOLT  urtest  IS 
USE  consio? 

—  Frovides  for  gathering  testing  data  of  the  ROS 
—  CNITREP  system.  Test  file  TESTXXX  results  on  B: 
~  disk 

test_number :  INTEGER; 
testie_name :  STRING(30); 
start_time ,stop_t ire :  STRING(12); 
comment:  STRING; 

PROCEDURE  open_initial_test (serial :  IN  STRING)  IS 
USE  lo;  **  --  Open  .CLOSE ,DEIET£ ,Crea te 

USE  strlih;  —  Int  to  Str 

filename:  STRING(14); 

BEGIN 

—  get  the  test  number 

Open( test _f ile ."TEST000 ", Read_Cnly) ; 

GETftest  file, test  number); 

CLCSE (teit_file ) ; 

—  increment  the  test  numter  &  store 
test  number  :=  test  number  +  i; 

DELETE ( "TEST000" ) ; 

Creat e( test _f ile, "TEST000" , Write_Cnly ) ; 

Open( test_f ile ."T2ST000" ,Write_Only ) ; 

PUT(test  file, test  number); 

CLOSE  ( test  file); 

—  open  the  file  for  THIS  TEST  data 
filename  :=  "B:TEST”  &  Int_ to_Str ( test_number ) ; 
IILETI(filename) ; 

Created  test_f ile .filename .Writ e_Only) ; 

— n  should  check  disk  full  &  full  directory 
Open( test_f ile , filename ,W  ri te_On ly ) ; 

—  start  test  mask 
clear  screen? 

putxy (0 ,3 , "Res  UNITRZP  TEST  INFORMATION" ) ? 
putxy(0,€, 

"ENTER  Drafter  Rank/Name: - ”); 

putxy(0,S, 

"ENTER  Start  Time  (Local,,-  ex.  1SB2C82  1630)"); 
putxy (25,11 ."ddMMMyy  hhmm"); 

—  get  screen  data 
getxy ( 25 ,6, res tee_name, 30 ) ; 
getxy(25,ll,start”time,12) * 

PUT (test _fi le .filename 

&"  test  data  on  UNITRIP  serial  "  &  serial) 
NEW_LINE(  test.flle) ; 

?UT(test  file, "Drafter :  "&  testee  name); 

NEW  LINE( test  file); 


FUT(test  file, "Start  Tire:  "&  start  time); 

NEW  LINE(test_file) »  NEW  LINE( test_f ile  ) ; 

PUT  (test  file," - ERRORS  RAIS  EE - "); 

NEV_IINE(test_file) ; 

—  errors  will  be  supplied  frorr  PROCEDURE  error  in 

—  package  urglobal 
END  open_i nit ial_test ; 

PROCEDURE  open_test  IS 

USE  io»  ~  —  Open .CLOSE , DELETE  ,Crea te 

USE  strlibJ  —  Int_to_Str 

—  intermediate  test  data” 
filencire:  STRING(14); 

EEC  IN 

—  get  the  test  number 

Open( test_file ,"TEST000" ,Read_Only ) ; 

GET(test  file, test  number;; 

CLOSE ( test_f i le  ^ ; 

—  increment  the  test  numoer  &  store 
test  number  :=  test  number  +  1» 

DELETE ("TSST000"); 

Crea  te(  test_f 1 le ."TEST000"  ,*irl  te_Only  ) ; 

Open (test  f ile, "TES T000 ",  Write _Cnly) ; 

PUT(test  file, test  number); 

CLCSE (teit_file) J 

—  open  the  file  £o r  IBIS  TEST  data 
filename  :=  "BiTEST  &  Int_to_Str ( test_rumber) ; 
DSLETE(f ilename ) ; 

Great  e( test_f ile .filename , Wri te_ Only ) ; 

—  should  check  disk  full  &  full  directory 
Op en{ t est_f lie, file name, Wri te_Cnly ) ; 

END  open_test; 

PROCEDURE  close  test  IS 

use  l o ;  --  close; 

—  intermediate  test  data 
BEGIN 

CLOSE ( tes t_ f i le )  J 
END  close  teit; 


PROCEDURE  close  final  test  IS 
USE  io?  --  CLOSE 
BEGIN 

—  set  close  test  screen 
clear  screen; 

putxyT® ,2 ,"ros  unitrep  test  information”  ) ; 
putxy(0,6, 

"ENTER  Stop  Time  (Local  -  ex.  1SDECS2  1S30)"); 
putxy (25 ,8, "ddMMMyy  hhmm";; 
putxy (30 ,10 , "C OMMENTS  (8  lines  max)"); 


iee 


getxy  (25 ,8 ,  stoj}_tim e,  12  ) ; 

PUT(test  file,  Sto?  Time:  "&  stop  time); 

NEW  UNIT test  file); 

PUT  (test  file,  "***+*  CO^ENTS  *****"); 
Nl\»_lINEf  te  st_f  ile ) ; 

—  test  comment  mask 
PCI  y  TN  11.. 13  1GCP 
FOR  x  IN  0..79  LOOP 
putxy(x ) ; 

ini  loop; 

ENI  loop; 

FOR  y  IN  11.. IS  LOOP 
getxy  (2 ,y , comm eat ,80) » 

EXIT  WEEN  comment  = 

FUT(test  file  .comment; );  NFW_IIM(test_f  ile) ; 
ENI  loop; 

CLOSE(test_?ile); 

ENI  close  final  test; 


ENI  urtest; 


PACKAGE  urgibl  IS 

—  contains  structure  of  me  eomment_set  used  in 

—  preparation  of  AKPN/Pl'KS 

—  max  number  of  comment  lines  for  ampn  set 
max_comment :  CONSTANT  :=  10* 

—  for  message  line  69  -  ( AI*FN/  or  PNKS/)  &  //  =  62 
max_line_length :  CONSTANT  :=  62* 

TYPE  comment  set  IS 
RECORI 

change:  200IEANJ 

number  of_lines:  INTEGER*  --  constrain  l..max  comment 
INI  RECCSr » 

ENT  urgltl* 


« 


■ST* 


1S6 


for  comment  set 


WITH  urglti; 

PACKAGE  urlocalA  IS 
USE  urglti; 

—  This  package  provides  the  data  set  definition 

—  for  the  LOCAL  data  used  in  UNITREP  construction 

—  general  local  information 
TYPE  status  set  IS 

RECORI 

transmitted:  BOOLEAN; 

last  serial:  STRING(3); 

feeder  report:  BOOLEAN; 

unit_id :  STRING(30) ; 

current_serial :  STRING(3); 

ampn:  comment_set;  —  for  PSGID/UNITID  sets 

ENI  record; 

TYPE  class  IS  (unclas  .confidential  .secret  ,top_secret ) ; 
TYPE  prec  IS  (routine, priori ty, immediate ,flasn) ; 

TYPE  message  set  IS 
RECCRD 

precedence:  orecj 
dtg:  STFlNG(i2); 
originator_address :  STRING(£0); 
classification :  class; 
declassification:  STRlNG(ei); 

END  record; 

TYPE  oueration  set  IS 
RECORD 

underway:  BOOLEAN; 
codeword:  STRING(32); 
plan_org  number:  STRING(23); 

END  RECORD; 

TYPE  exercise  set  IS 
RECORD 

underway:  BOOLEAN; 
nickname:  STRING(62); 

END  record; 

TYPE  position  set  IS 
RECORD 

change:  BOOLEAN; 

lat_long:  BOOLEAN; 

present  location:  STRING(20); 

dtg:  STRING ( 12 ) ; 

ampn:  comment  set; 

INI  RECORD; 


— maximum  #  of  remarks  pages,  10  lines/page 
rax  rmks_pages:  CONSTANT  :=  lit 
TTPl  remarks  set  IS 
RECORD 

change:  ECOLIANJ 
nvmter_of_pages :  INTEGER; 

—  constrain  1 .  .max_rinks_pages 
page:  ARRAY{1 .  .max_rmks_pages )  05  comment_set; 

INI  ricore; 


TYPE  local  set  IS 
RECCRI 

change:  300LEANJ 
status:  status_set; 
message:  rressage_set; 
operation:  operation_set; 
exercise:  exerci se_sit; 
position:  position_set; 
remarks:  remarks  set; 

5NI  RECORD; 


END  urlocalAJ 


WITE  uradrcir.B ,urair3 » 

PACKAGE  unitrepB  IS 
USE  uradrinB , urairB ? 

—  The  basic  unitrep  data  set  and  variable 
—  for  data  structure  B  -  AIR  and  ADMIN 


TYPE  unitreu  set  IS 
RECORD 

ad:  adifin_set; 
ar:  air  set? 

END  RECORD? 

u:  unitrep_set? 


END  unitrepB? 


WITH  tirglhi;  —  for  comrent_set 

PACKAGE  uradrrinB  IS 
DSI  urglti; 

—  This  package  provides  ADMINISTRATIVE  data  set 
—  declarations  for  UNITREf  construction 


—  adirin  TYPE  declarations 
TYPE  phys_status  IS  ( onhoa rd  .departed ) ; 

TYPE  a_rep_org  IS 

( cno ,cincpacf 1 t .cinclantf It .cincusnaveur) 

TYPE  verification  IS  ( valid . correct ed  )  i 

TYPE  command  set  IS 
RECORD 

change:  BOOLEAN; 
cooic:  STRI NG (30 )  * 
dtg:  STRING( 12 ) * 
airpn :  coinrent  set; 

INI  RECORIJ 

TYPE  activ  set  IS 
RECCRE 

change:  300LEAN J 
activitycode :  STRING(2); 
arrpn:  comment  set; 

ENE  record; 

TYPE  medic  set  IS 
RECOPE 

change:  BOOLEAN ; 
status:  phys_status; 
ampn:  comment  set; 

INE  RECORD; 

TYPE  rep  org  set  IS 
RECCRE'* 

change:  BOOLEAN; 
nev  rep  org:  n  rep  org; 
dtgT  STRING (12); 
ampn:  comment  set; 

INE  record; 


TTP1  verify  set  IS 
R1CCRE 

change:  BOOLEAN; 
feedback_ver :  verification 
airpn:  coirirent  set; 

SNI  RECORD? 

TIPI  adirin  set  IS 
RECORD  ~ 

change:  BOOLEAN? 
cormand:  coinrand_set ; 
activ:  activ_setT 
iredic:  !redic”set; 
reporg:  rep_org_set? 
verify:  verify  ieti 
ENI  riccp.d; 


ENI  uradtnlnB; 


—  for  comment  set 


WITH  urglbl? 

PACKAGE  urairB  IS 
USE  urgltl? 

—  data  structure  definition  for  AIR  Situatio 

—  of  a  UNITREP 

max  recon:  CONSTANT  :=  11 J  —  set  by  OPNAVINST  3503 
TYPE  recon  set  IS 
RFCOPI 

change:  BOOLEAN* 
delete:  BOOLEAN* 

numter_of capabilities :  INTEGER* 
capability:  APRAY  (1 .  .irax_recon )  OF  STRING{8)* 
arnpn:  comment  set; 

ENE  beccpd; 

TYPE  crewstat_set  IS 
RECOflE 

change:  lOOIIAN; 
delete:  BOOLEAN; 
formed:  STRING(2); 
ready:  STPING(2); 
arnpn:  comment  set; 

ENE  HECCRD; 

TYPE  airstat  set  IS 
RECOPI 

change:  BOOLEAN? 
delete:  BOOLEAN? 
possessed:  STRING(2); 
fmc:  STRING (2); 
pmc:  STRING (2 ) ; 
nmc:  string(2); 
arnpn:  comment  set; 

ENE  HECCRr? 

TYPE  dispersed  aircraft  IS 
PFCORE 

change:  BOOLEAN? 
delete:  BOOLEAN; 
iss:  STRING (30) ? 
airstat:  alrstat_set; 
crevstat:  crewstat_set; 
recon:  recon  set; 

ini  pecore; 


TIPI  authorization  set  IS 
RICCRE 

change:  BOOLEAN* 
delete:  EOCLEAN; 
iss:  STRING (2 ) * 
airpn:  corcirent  set* 

ENE  RECORD* 

(rax  locations:  CONSTANT  :=  5;  —  RCS  design  decision 
TYPE  aircraft  type_set  IS 
RECORE 

change:  ECCIEAN; 

delete:  BOOLEAN* 

iss:  STRING (7 ) ; 

ac_auth:  authori Za t ion_set ; 

crevs_auth:  authori zat!on_set; 

nuirter_o?_locations :  INTEGER; 

locatlon:~ARRAY  (1 .  .irax_locations )  OF 

dispersed  aircraft 

ENE  record; 

irax_ac  types:  CONSTANT  :=  5;  —  ROS  design  decision 
TYPE  alr_set  IS 
RECORE" 

change:  IOOIEANJ 
nurter_of_ac_types :  INTEGER; 

ac  typi:  ARRAY  fl..it)ax  ac  types)  OF  aircraft  type  set 
ENE  rfccbe; 


ENI  urairBJ 
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WITE  io ,util  ,chainllb ,strlib  ,  —  JANUS/AEA  libraries 
consl o, printio , 
filerA, 

urglobal  ,urutil , 

— #  urtest, 

unitrepA , 
urlocalA; 

PACKAGE  1017  unitrep  IS 

USE  io,  —  Open, CLOSE, Create, EELETE 

chainiib,  —  Simple_Chaln 
consio,priatlo , 
filerA, 

urglotal ,urut il , 

— #  urtest, 

unitrepA, 
urlocalA; 


PROCEDURE  check_required_files  IS 

--  checks  to  make  sure  all  neccessary  files 

—  are  present 

BEGIN 

—  program  status 

IF  NOT  valid  file( "STATUS")  THEN 

terminate (file_error,  "STATUS " ) »  END  IF,* 

—  the  data  structure 
IF  NOT  valid_file("UNIT000")  TEEN 

terminate (file_error, "UNIT000" ) ;  ENT  IE; 

—  serlal/dtg  crossref 
IF  NOT  valld_flle( "CROSS REF")  TEEN 

terminate (file_error, “CROSSREF" ) ;  END  IF; 

—  addressees 

IF  NOT  valid_flle( "ACTION")  THEN 

terminate (file  error, "ACTICN” ) ;  END  IF; 

IF  NCT  valld_flle("lNFO” )  TEEN 

terminate(?ile_error,"INFC") ;  ENI  IF; 

—  error  messages 

IF  NCT  valid  f ile( "ERRMSG")  THfN 

terminate(?ile_error,  ERRPSG  );  END  IF; 

—  help  text 

IF  NCT  valid_f ile( "HELP^TXT"!  TEEN 
terminated  lie  error, "HFLP  );  END  IF; 

IF  NOT  valid_f lie ( "DRAFT. TXT")  TEEN 

terminate (file_error, "ERAFT.TXT" ) ;  END  IF; 

— #  test  info  -  remove  from  production 
— #  IE  NOT  valld_file( "TEST000" )  TEEN 

— #  terminated ile_error ,"TEST000“ ) ;  END  II; 

—  reference  tables 

IF  NOT  valid_file("TABLI.3-2”)  TEEN 

terminate (file  error, "TABLE. B-2" ) ;  END  IF; 

IT  NOT  valid  flle("TABLE.3-3")  TEEN 


terminate  {f ile  error, "TABU. 3-3" ) »  INI  IF? 

IF  NCT  valid  file ("TABLE. B-€")  THEN 
terminate(  f!le_error ,  TABLE. B-6  )»  ENE  I?;. 

— Module  for  urlocal 
IF  NCT  valid  f ile( "UN ITREP1 .CO«" )  THEN 

terminate  (file_errcr,  "UNITREPl  .CCM"  )  *  END  IFi 
—  module  for  urair  and  uradmin 
IF  NOT  valid  file( "UNITREP2.COM" )  THEN 

terminate  (file  error, "UNITREP2  .CCM" )  i  END  IF; 
IF  NCT  valid_file("UNlTRIP3.C0M" )  THEN 

terminate(file_error,  "UN1TREP3  .CCM"  )  i  ENE  IFi 
ENE  check_required”f lies; 


PROCEDURE  signon  IS 
BEGIN 
border; 
putxy(0 ,3, 

SIGN  ON  -  ROS  UNITRE?  SISTER  -  VERSION  1.1  -  JAN  S3  )i 
putxy(e,5, 

The  Current  Workfile  is  UNITREP  Serial  -  .  )» 

putxy (3S, 5, u.l. status. cur rent _serial ) i 
IF  u.l.statu§ .transmitted  THEN 

putxy(0,8.  It  HAS  been  logged  as  transmitted:  DTG” ) i 
putxy(39 , 8, u.l. message. dtg) » 

ELSE 

putxy(0,8,  It  HAS  NOT  been  logged  as  transmitted.'*); 
ENE  if; 
gutxy ( 10,20, 

<ENTE3>  to  continue,  ENTER  <?>  for  HELP  information:  ); 
LOOP 

getxy  lmmediate(€3 ,20 ,key) ; 

CASE  key  IS 

WHEN  no  input 'space  *>  EXIT; 

WHEN  ques  => 

help  ("sign  on");  exit; 

WHEN  OTHERS  =>  error(6);  —  incorrect  inuut 

ENE  case; 

ENE  LCCP; 

ENE  signon; 

PROCEDURE  choose_acti on (action_i s :  CUT  action_state)  IS 

—  selects’one  of  the  exicutable  RCS  UNITRE? 

—  actions 

PROCIEURI  initialize  action  IS 
BEGIN 

ECR  1  IN  action  RANGE  draft.. quit  LOOP 
action  is(i)  :*  FALSE; 

INI  LOOP? 

INI  initialize  action; 


PROCEEURE  actioniTdsJr  IS 

—  draws  the  action  screen 
BIGIN 
border; 

putxy(68,l  .’’SERIAL  "&  u.l .status. current_serial) ; 
putxy(0,3,  ACTION  I-5NU*' ) 5 

putxy  ( 19 ,5  ,"-1-  Prepare  UNITRIP  Iraft  Eocuirent’’); 
putxy( 19,€,”-2-  Initiate  New  UNITREP"); 
putxy(19,7, 

"-2-  Remoye/Modlf y/Aad  Tata  to  Pending  UNITREP)]); 
putxy(19,8,  -4-  Print  Message  Format  Hard  Copy  ‘  & 
"of  Pending  UNITREP"); 

P]?txy(  19,9, 

-5-  Log  Pending  UNITREP  as  Transmitted  ); 
putxy( 19 ,10,”-6-  Erase  Pending  UNITRIP"); 
putxy(19,ll, Prepare  Verification  Summary”); 
putxy (19, 12, ”-8-  Cult”); 
putxy( 19, 14, "ENTER  the  desired  action:  "); 
putxy (0,15,dashln) ; 

INI  actionrrask; 

desired_action:  CBARACTER J 

BEGIN 

LOOP 

initialize_action; 

actionirask; 

getxy  imrrediate(45, 14,desired_actio.n) » 

CASE  Jesi red_action  IS 

WEEN  '1'  =>  action  is(draft)  :=  TRUE; 

exit; 

WHEN  '2'  *>  action  is(nevw)  TRUE; 

exit; 

WHEN  '3'  =>  action  is(irodlfy)  :=  TRUE; 

exit; 

WEEN  '4'  *>  actionals ( print )  :=  TRUE; 

EXIT* 

WHEN  '5'  =>  action  is(lcg)  :=  TRUE; 

exit; 

WHEN  =>  action  is(erase)  :=  TRUE; 

EXIT; 

WHIN  *>  actionals  (verify )  :=  TRUE; 

EX  IT  *  "" 

WEEN  'a'  =>  action  is(quit)  :=  TRUE; 

EXIT; 

WEEN  OTHERS  *>  error(6);  —  incorrect  input 

ini  case; 
ini  loop; 

ENI  choose  action; 


PROCEDURE  process.act ion (dction_is :  IN  OUT  acticn.state? 

success:  CUT  EOCLEAN)  IS~ 

USE  io.strlib? 

—  performs  required  file  actions  to  comply 

—  with  action.is 

filename:  STRING(14)» 
serial:  STRING(3)? 
dtg:  STRING(12); 

BEGIN 

program. workfile  :=  "UNITseg"? 

IF  action_is(draf t )  THEN 

IF  NOT  u. 1 .status .transmitted  THEN 

putxyfO.ie/^The  Current  Woricfile  has  nct.been  ”  & 
"transmitted.  Do  you  want  ...")? 
putxy(5 ,17, ”{  )  Draft  of  the  Current  Workfile"); 
putxy(5,18, 

"(  )  Draft  of  the  last  submitted  UNITREP” )? 
putxy(21, 20, "ENTER  <X>  as  required’’)? 

IF  mark(6,l?)  THEN  —  use  current  UNITREP  data 
success  :=  TRUE? 

ELSIF  mark( 6,18)  THIN 

—  get  last  submitted  UNITREP  data 
filename  :*  ”B:UNIT"&  u.l. status. last  serial? 

IF  valid. file(filename)  THEN 

program .workf lie  :=  filename? 
success  :=  TRUE? 

ELSE  —  invalid  file 

error(2)? 
success  :=  FALSE? 

END  IF? 

ELSE  —  this  action  was  not  desired 
success  :=  FALSE? 

END  IF? 

ELSE  —  use  current  UNITREP  data 

success  :=  TRUE? 

END  IF? 

IE  success  THEN 

line.count  :=  1?  —  in  printlo 

set.format ( text ) ? 
putxy (0 ,20 ,blankln) ? 

putxy(0, 20, "Select  Areas  for  Draft  Document,  ”  & 
"Ready  printer  &  <ENTER>”)? 
getxy  lmmedlate(5S,22 ,key)? 

END  IF?" 

ELSIE  action. is(neww)  THZN 

II  NOT  u.lTstatus .transmitted  TEEN 
error(7)? 

—  current  ..*t  ansmitted,  modify  or  erase 


success  :=  FALSE; 

ELSE 

success  :=  TRUE; 

INI  if; 

ELSII  action_is (modify)  TEIN 
II  u.l .status .transmi ttea  THIN 

error(8);  — current  transmitted,  Initiate  new 
success  :=  FALSE; 

ILSI 

success  :=  TRUE; 

EM  if; 

ILSI!  action_^s (print )  TEIN 

putxy (0#ie7„Io  You  vant.a  message  forrrat  hard  "  d 
"copy  of 

putxy(S,17,"(  )  Pending  UNITRIP"); 

putxy{8,18,"(  )  Old  UNITREF:  serial - or  ”  & 

"dtg:  ddhhmmZMPMyy " ) ; 

putxy(17,20, "ENTER  <X>  and  data  as  required.”); 

II  mark(9,17)  TEEN  —  use  current  UNITRIP  data 

success  :*  TRUE; 

ILSIF  irark(9,18)  TEIN 

—  use  old  UNITREP  data,  get  serial  or  dtg 
getxy  (32,18 ,  serial,  3).; 

IF  serial  *  null_string  TEEN  —  get  dtg 
LOOP 

getxy(46,18,dtg,12); 
verify  dtg(dtg, success) ; 

EXIT  VflEN  success; 
putxy (46, 18, dtg) ; 

END  loop; 

Open( fyle , "CROSS RIF" , Read_Cnly ) ; 

LOOP 

buffer  :=  OET_LINI( fyle) ; 

IF  Extract (buff er  ,5 ,12  )  =  dtg  THEN 
—  dtg  matches  file 
CICSF(fyle);.. 

filename  :=  "3:UNIT"&  Extract (buffer, 1,3); 
IF  valid_file( filename)  TEIN 
program .workf lie  :=  filename; 
success  :=  TRUE; 

exit; 

ILSI  —  invalid  file 

error(2 ) ; 
success  :=  FALSE; 

END  if; 

ILSIF  INI  OF  FlLE(fyle)  THIN 
CLOSE (fyleT; 

error(S);  —  dtg  doesn't  cross  to  a  serial 
success  :=  FALSE; 


exit; 

ELSE 

NULL;  —  get  another  line  frorr  CPOSSREF 
ENE  if; 

ENE  iccp; 

ELSE  --  use  input  serial 

filename  :=  "B:UNIT"  i  serial; 

IF  valid_f lie (filename)  TEEN 
load_file(filenaire) ; 
program. vorlcfile  :=  filename; 
success  :=  TRUE; 

ELSE 

error(2)J  —  invalid  : 

success  :=  FALSE; 

ENI  if; 

END  if; 


--  invalid  file 


ELSE 
success 
ENE  if; 


i=  false; 


—  not  the  desired  action 


—  pick  message  format 


IF  success  TEEN 

FOR  i  IN  16.. 20  LOOP 
putxy (0  ,i .blankln ) ; 

END  loop; 

putxy(0 ,16 ,"DC  you  want  the  tressage  in 
putxy(8,l7,”(  )  OCR  format"); 

putxy(8,18,  (  )  Standard  Naval  Message  format") 
putxy ( 27,20,’ ENTER  <X>"  ) ; 

ICOP 

IF  mark(S,17)  TEEN 

set_format (ocr ) ;  EXIT; 

ELSIF  mark(9,18)  TEEN 
set  format(msg);  EXIT; 

ELSE 

error(6);  —  choose  one 

ENI  if; 
end  loop; 

line_count  :=  l;  —  in  printio 

putxy(20, 20 ."Ready  printer  and  <ZNTER>" ); 
getxy  immediate(44, 20 ,key) ; 

END  IF;' 


ELSIF  action_ls(log)  TEEN 

IF  u .1 .status .transmi tied  TEEN 
error ( 10) ; 

—  cannot  log  an  alreacy  transmitted  UNITREP 
success  FALSI; 

ELSE 

putxy(  e,  16, "ENTER  the  transmittal  dtg:  "  s 
"ddhhmmZfWf*yy'' ) ; 

LOOP 
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getxy  (27,16 ,  u.l. message .dtg, 12) ; 
verify_dtg(u.l . message  .dtg  .success ) ; 

EXIT  WEEN  success; 

pu t xy ( 27, 1 6  ,u.l  .message. dtg) ; 

ENI  loop; 

u .  1 .  status  .t  ransmit  ted  :  =  TRUE; 

u.l .status. ldst_serlal  :=  u .1 . status .curr ent_serlal 
filename  :*  "B:UNI'P,*&  u  .1  .status  ,current_seri«i; 
program. workfile  :  =  filename; 
store_file( filename ) ;  —  completed  data  file 

store  file("UNrre00") ;  --  workf lie 

— *  sEould  incorporate  disk  full, 

— *  full  directory  checks 

—  the  insert  dtg  block  is  neccessary  due  to  the 

—  lack  of  random  access  read/write  procedures  in 
--  JANUS  ALA.  Greatly  simplified  in  full  ADA 
insert  dtg:  DECLARE 

TYPE- li st ; 

TYPE  link  IS  ACCESS  list; 

TYPE  list  IS 
RECORT 

serial_d tg :  STRING( 16) ; 
next:  link; 

END  record; 
mark, first ,1 :  link; 

IEGIN 

first  :=  MW  list; 

—  initialize  -  not  required  in  full  ADA 

f irst .serial_dtg  :  =  u .1 . status .curren t_serial  & 

6.  u.l. message. dtg; 

first  .next  :=  NULL; 
mark  :*  first; 

Open (fyle , "CRCSSRIP" ,Read_0nly )  ; 

—  read  out  old  crossref  data 
WHILE  NOT  ENI_0E  EILE(fyle)  LOOP 
1  :=  NEW  list;- 

—  Initialize  -  not  required  in  full  ADA 
l.serial_dtg  :=*  GET_LI.N5(  fyle ) ; 
l.next  :=  null ; 
mark. next  :=  1J 
mark  :=  l; 

END  iccp; 

CLOSE(fyle) ; 

—  write  in  the  altered  crossref  list 
DELETE("CROSSREl" ) J 

Creat  e(  fyle, ’‘CROSSREF** ,  Wri  te_Cnly) ; 
mark  :=  first; 

WHILE  mark  /*  NULL  LCCP 

PUT (fyle,mark.serial_dtg);  New_Line < fyle ) ; 


mark. next ; 


mark  := 

ENE  loop; 

CICSKfyle); 

—  Clean  up  pointer; 

WHILE  first  /=  NULL  LCCP 
mark  :=  first; 
first  :=  mark. next? 

Eispose(mark) J 
ENE  LOOP? 

END  insert_dtg? 

success  :=  TP.UEJ  —  DELETE  old  AMP  files  on  d: 
ENE  IF? 

ELSIE  action_is(erase)  THEN 

—  if  successful,  erases  current  workfile  and 

—  returns  false,  reselect  choice  for  action 
IF  NOT  u .1 .status  .transmi tied  THEN 

putxy( 10,16, "Confirm.you  wish  to  erase  UNITREP  "  & 
"serial  ”  &  u.l . status .curren t_serial ) 

putxy(13,17, 

"(It  has  not  been  logged  as  transmitted)"); 
putxy ( 26 , 18 /’ENTER  (T/N) :’ )? 
getxy_lrrmedidte (38, 18, key) ; 

IF  key  =  n  THEN  —  do  not  erase 

success  :=  FALSE? 

ELSIT  key  *  y  TEEN 

—  erase  if  backup  data  is  available 

filename  :=  "B:UNIT"  &  u .1 . s tatus  .las t_serial ; 

IF  valid_f ile( f il ename )  THEN 
program. workfile  :=  filename? 
load  file( fil ename) ? 
store_f lie ( "UNIT000 " } ? 
success  :=  THUS;  —  load  partB 
ELSE 

termlnate{file  erro r, filename) ; 

END  if; 

ELSE 

error(e);  —  incorrect  input 

success  :=  FALSE? 

ENE  IF? 

ELSE  —  file  has  been  transmitted 

error(8);  —  initiate  new 

success  :=  FALSE? 

INI  IF? 

ELSIE  action_is( verify)  THEN 
putxy(0,l€T 

"ENTER  theMAS_0F  verification  serial: - ")? 

putxy (9, 17, "(000  to  restart)")? 
serial  :=  getxy_digi t s ( 37 f ie ,3 ) » 

IT  number  *  0  TEEN 


FALSE? 


restart  on  000 


success  := 

ILSI 

filename  :=  "BiUNIT"  &  serial; 

II  valid_ file ( filename)  THEN 
succesi  :=  TRUE; 
program .workfi le  :=  filename; 

IISS 

error(2);  — required  file  not  present 
success  :=  FALSE; 

IND  if; 
ini  ii ; 

IF  success  TEEN 

line_count  :=  l;  --  in  printio 

set_f ormat (msg ) ; 
putxy(0,20,blankln) ; 

putxy(35 ,20, "Ready  Printer  and  <SNTER>"}; 
getxy_immediate(5S, 20,key ) ; 

INI  if; 

ELS II  action  is'quit)  TEEN 

terminate(normal,null_string) ; 

ELSE  —  no  action  required 

success  :=  FALSE; 

INI  if; 

ENE  process_action ; 


PPOCEEURE  choose  areas(area  is:  IN  OUT  area_state)  IJ 

—  menu  selection  of  the  UNITREF  situation 

—  area  categories 

PROCEIURE  initialize  area  IS 
BEGIN 

FOB  i  IN  areas  RANGE  pers.. local  LOOP 
area  is(i)  :=  FALSE; 

ENE  loop; 

ENE  init ialize_ar eaj 

PROCEIURE  areamask  IS 

—  draws  the  area  screen 
BEGIN 

border; 

putxy(  68 , 1  ."SERIAL  "s,  u .  1 .  st  atus  .  current  serial); 
putxy (0,3 ,  UNITREP  SITUATION  ^ENU" ) ; 
putxy  (9  ,5  (  )  -0-  Modify  Local  Information"}; 

putxy(S,7,"(  )  -1-  Personnel  Status”); 
putxy(9,fi,"(  )  -2-  Administrative  Status"); 
putxy(S,9,  • 

(  )  -3-  Unit  Combat  Readiness  Assessment  ); 


putxy(9,10,j|(  )  -4-  Aircraft  and  Crews  Status'); 
putxy (S  ,11 ,” (  )  -5-  Major  Equipment  Status’’); 
putxy(9,12,"(  )  -6-  Special  Capabilities  Status”); 
putxy(9,13, 

”(  )  -7-  Increased  Iefense  Readiness  Status”);,, 
putxyfg.lS,,’,^  )  -8-  Reserve  Augmentation  Status’’); 
putxy(£,l€,’’(  )  -9-  Type  Commander  Reports’); 
putxy{15, 20,’ ENTER  <X>  in  desired  report  area(s)”); 
INI  areamask; 

BEGIN 

I0CP 

initialize_area; 

areairaskj 

area_is( local )  :=  mark( 10 ,5 ) ; 
area”i s(pers )  :=  mark(lZ,7); 
area_is(admin)  :=  mark(10,8); 
area~is(combat)  :=  mark(10,9); 
area”is(air)  :=  mark{10,10); 
area_i s( equip )  :=  mark(10,ll); 
area“is(specap)  :=  mark( 10 ,12) ; 
area_i s(defense)  :=  mark(10,13); 
area'ls (reserve )  :=  mark(10,15); 
area”i  s(  tycorr)  :=  mark(10,16); 

IE  area_is (pers )  OR  area_i s (combat )  CR 
area_is(equip)  OR  area„is (specap  )  CR 
area_is(defense)  OR  a rea_is(  reserve) 

CR  area_is ( tycom )  TEEN 
putxy (0 ,20 , 

SELECTEE  AREA  NOT  IMPLEMENTS!  -  CFOCSE  ONLT :  " 
"LOCAL, ADMINISTRATIVE  and/or  AIR’’); 
getxy  immediate( 78 ,20 ,key  ) ; 

ELSE 

putxy (0,20, tlankln) ; 
putxy(0,20, 

”<ENTER>  to  continue,  ENTER  <X>  to  reselect:  ” ) ; 
reselect  :=  mark(44,20); 

EXIT  WHEN  NOT  reselect; 

ENE  IE; 

ENE  icop; 

ENI  choose  areas; 


BEGIN  —  main  body 
load_status  J 

--  operations  required  by  status 
IE  program. init ial_entry  TEEN 
check, requi red_fll es ; 

initial  test  data 

— #  open  initial  test (u. 1. status .current_serial  ) ; 

signon;  “ 
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program. Initial  entry  :=  FAISE; 

ELSE 

-#  open  test;  — #  intermediate  test  data 

load  file( "UNIT000" ) ; 

END  IF? 

action:  ICOP 

choose.action (action.is ); 
procesi_action(action_is,  success); 

—  required  file  operations 
EXIT  WHEN  success? 

END  LOOP  action; 

IF  action.is(modify)  CP  action_is(draf  t )  TEEN 
choose  areas(area  is); 

END  if; 


—  direct  program  flow  to  next  required  module 
-#  close_test; 

store  status; 

FUtxyT30,22,"STANr3Y . “ ) J 

IF  action.is(log)  THIN 

—  reset  local  items  in  UNIT000A 
Simple. Chain { "UNITREPl .  COM’  ); 

EISIF  action.is (erase)  THEN 

—  recall/reset  items  in  UNIT000I.  UNIT000A  reset 

—  in  process  action 
Simple. Chai n ( "UNITREP2 .  COM”  ) ; 

IIS  IF  action.is (print )  CE  action_i s(d raf t ) 

05  action  is(verlfy)  OR  action  is(neww)  THEN 
S imp le_ Chain ( "UNITREPl . COM” ) ; 

EISIF  action_ls(modify )  AND 

(NOT  u.l. change  OR  area_l s( 1 ocal )  )  TEEN 

—  At  least  one  entry  into  urlocal  is 
—  required  to  set  message  Items 
Simple. Chai n( "UNITREPl . COM" ) ; 

EISIF  action  is(modify)  AND  area  isfadmin)  TBIN 
Simple. Chaln( "UNITREP2. COM" ) ; 

EISIF  action  is(modify)  AND  area  is(air)  THEN 
Simple  ChaIn('UNITREP3.C0M"); 

END  if; 

Simple  Chain ("UNTTRFP.COM") ;  — 


restart 


—  JANUS  ADA  Library 


WITH  chainlib, 

consio  ,orintlo , 
filerA, 

— #  urtest,, 

urglobal , 
urlocal ; 

PACKAGE  ICIY  unitrepl  IS 
USE  chainlib, 

consio, printlo , 
filerA, 

— u  urtest, 

urglobal , 
urlocal f 

—  Frovides  processing  of  UNITPF?  local 
—  information  and  program  control 


IFGIN 

load_statusi 

IF  program. prlnt_trailer  THIN 
pro  cess _local {trailer  )> 
program. prlnt_traller  i=  FALSE; 
store_statusj" 

Simple_Cbain(’*UNITRE?.CCm”)  ;  , 

ELSIF  action_is (log)  TEEN 
process  local (header) ; 
store  flle(orogram.vorkfile); 
Simple_Cfcain("UNITREP2.C0f*"); 

ELSIF  action_is  (print )  CR  action_i s ( verify )  THEN 
process_local ( header ) > 
program7print_trailer  :=  TRUE? 
store  status?"  —  line  count 

Simple_Chal n ( "UNITREP2,  COm'‘ ); 

ELSIF  action_is (draft )  TEEN 
process_local(header ) » 
programTprint_trailer  :=  TRUE? 

IF  area_ls(adrrin)  or  area_is(air)  TEEN 
store  status;  —  line  count 

Simple  Chain("UNITREP2.C0rO; 

ELSE 

process_local{ trail er  ); 
program Tprint  trailer  :  =  FALSE; 

Simple  Chain ("UNITREP .  CCm ' ); 

ENI  if; 

ELSIF  action_ls(nevv)  THEN 
process  local (header ) ; 
store  flle( "UNIT000") ; 

Simple_Chain( "UNITREP2 . Com”  ; ; 

ELSIF  action_is (modify )  TEEN 
— #  open_teit; 

process^local ( header  ) ; 
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#  close_test; 

store_fiIe("UNIT000") ; 
store~statu$  ; 

putxy?30 ,22  , "STANDBY . ")t 

IF  area  is(adrrln)  TEEN 

Siirpli_Chain(  UNITRFP2. COM  ‘ ) ; 

ILSII  aria  is(alr)  THIN 

Simple  Chain("UNITREP3.CCM”) r 
USE 

Siirple  Chain ("UNITREP.COM") ; 

ENE  if; 

—  erase  controlled,  in  unitrep.coir  (.pkg) 

ENr  if; 

Simple_Chain( "UNITREF.COM") ;  --  restart 
END  unitrepi; 


--  JANUS /AE A  library 


WITH  chdinlit, 

consio ,printlo , 
filer?  ♦ 
urglobal , 

— #  urtest, 

unitrepB, 
uradirin  ,urair ; 

PACKAGE  BOEY  vnitrep2  IS 
USI  ehainlib, 

consio, urintio  , 
filer?, 
urglotal , 

— #  urtest, 

unitrep? , 
uradirin, ura  ir; 

—  provides  processing  of  UNITREF  adirinlstrative  and 

—  air  situation  reports  (excluding  air  modify'  and 

—  prograir  control 

BEGIN 

load_status; 

IP  acticn_is(verify )  OH  action_is(print )  THEN 
process_adirini«tra  tivej 
processor. 

store_status»  —  for  line  count 

Siirple  CbainCUNITRPPl.COM");  —  print  trailer 
ELSIE  action  is(draft)  THEN 
IP  area_isTadirin )  TEEN 
urocess  adirinlstrative; 

ENE  if;  - 

IF  area_is(air)  THEN 
process  air; 

ENE  IE; 

5tore_status;  --  for  line_count 

Sirrple_Chain  (  "UNITREFl.  COM" ) ;  —  print  trailer 

ELSIE  acti cn_is (new )  THEN 
process_adirinis  tratl  ve; 
process  airf 
store_f!le(  UNITC00") ; 

Siirpii_Chain  ("(JNITREP.  COM"  )  *  —  ‘'lie  zeroed 

ELSIE  action_is(rrodify)  THEN 
— #  open_teit; 

IE  area_is(  adirin  )  THEN 
proceis_adrrinistrat  Ive; 
store  file( "UNIT000*' ) ;  --  save  new  data 

ENE  IE;" 

IE  area_ls(air)  THEN 
— *  close’test; 

putxy?3S , 22 ,"STANE3T . "); 

•Siirple  Chain ( "UNITREP3 . COM" )  ;  —  process  ac  tyoe 

ENE  IE?  '  -  -  - 


— #  close  test;  — #  rerrove  from  production 

putxy (35^22, "STANrBY . M) ; 

Slirple_Chdla(,’UNIT5EP  .COM*’ ) » 

ILSIE  action_l«(log)  THIN 
process. administrative; 

process^air » 

store  file( program. vorkfile ) ; 
Siirple_ChainrUNITREP.COM”) ; 

ILSII  action  is(erase)  THIN  x 

store  file7’’UNIT000”) ;  —  previously  loaded  old  file 
Simple  Chain ("UNITRFP.CCM” ) ; 

ENI  if;  “ 

Simple. Chain( "UNITRSP.COM”) ;  —  restart 
INI  unltrep2; 
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—  JANUS/ATA  library 


WITH  chainlib, 

consic ,prlntio , 
urglobal , 
f  llerli, 

— #  urtest, 

urai rl , 
unitrepi; 

PACSAGE  ECIT  unitrep3  IS 
USE  chainlib, 

cor.sio  „printio , 
urglobal , 
filer3  , 

— #  urtest, 

nrairl, 
unitrepB  * 

—  provides  processing  of  UNITREP  air  situation 

—  reports  when  action_i s  (irodify )  and  program 

—  control  to  return  to  main  module 


BEGIN 

load„statusi 
— #  open_test; 

process  ac  type? 

— *  close_test; 

store_f  Ue(  "UNIT000" ) ; 

putxy (35 ,22 , "STANDBY . “); 

Si!rple_Chain(  nNlTREP.COM  ); 
END  unitrep3» 


PACKAGE  fiierA  IS 


rr 


—  normal  file  handling  operations  for  the  '  k'  data 

—  structure 

JUNCTION  valid_flle( filename :  STRING)  RETURN  BOOLEAN* 

—  checks  for  r&lid  external  files 

TYPE  reascn_code  IS  (normal ,file_error ) ; 

PROCEDURE  tirminate (  reason *.  IN  riason_code> 

filename:  IN  STRING); 

—  exit  point  for  the  UNITEEF  program 

PROCEDURE  load_file (filename :  IN  STRING); 

—  loads  a  particular  unitrep  data  set 

PROCEDURE  store_file( filename:  IN  STRING); 

—  stores  a  particular  unitrep  data  set 

PROCEDURE  load_statusJ 

—  loads~and  performs  operations  required  by  status 

PROCEDURE  store  status; 

—  stores  the  status  state 

ENr  filerAJ 
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WITH  io ,utll ,strlib ,  — JANUS/ADA  library 

consio,pri ntio , 
urglobal , 

— #  urtest, 

unitrepl, 
urlocalA? 

PACKAGE  IOIT  filerA  IS 
USE  io? 

USE  prlntlo?  —  format_is 

USE  urglobal?  — dCtion_is,area..i  s  .f  or!rat_ls 

USE  unitrepA?  — u.data  types 

USE  urlocalA? 

—  normal  file  dandling  operations  for  the  'A'  data 

—  structure 

fyle:  FILE? 

FUNCTION  vali d_f lie (filename  :  STRING }  HE 1  CRN  20 CLEAN  IS 
USE  io?  —  Open , CLOSE  ,  ICresult 
USE  strllb?  —  Extract 

—  opens  FILENAME  tc  check  presence. If  FILENAME 

—  not  present,  returns  FALSE  otherwise  closes 
—  FILENAME  and  returns  TRUE. 

BEGIN 

—  A  unitrep  file  . 

buffer  :=  filename? 

IF  ( ( Extract (buffer ,1 ,4 )  =  "UNIT")  0? 

( Extract  ( buffer ,  1,4)  =  *’B:UN”)) 

ANE  NOT 

((filename  =  "UNITREPI . COM"  )  OP 
( filename  *  "UNITREP2. COM")  CH 
(filename  =  "UNITEEP3 . CCM" ) )  TEEN 
—  due  to  check_reaui red _f lies 
buffer  :=  buffer  S.  "a"; 

FNE  IF? 

Open( fyle , buff er ,Read_Only )  ? 

IF  ICresult  =*  255  THEN  —  'lie  does  not  exist 
RETURN  FALSE? 

ELSE 

CLCSE(fyle); 

RETURN  TRUE? 

ENI  IF? 

ENE  valid.file? 

PROCIECRF  terminate (reason :  IN  reason  code? 

filename :  IN  STRING)  IS 

USE  con.sio? 

USE  strlib?  —  Extract 

USE  io.util?  —HALT 

USE  urtest?  --  test_file 

—  This  procedure  is  the  exit  point  of  the  program 


— u 


—  reason  can  be  either  NORMAL  or  for  FILE. ERR 
BIGIN 

—  save  current  unltrep  data 
store. file("UNIT000") ; 

IF  reason  =  normal  TP. IN 
ft  close.f inal.test ; 

program .Initial_entry  :=  TRUE; 
store  status; 

Halt;" 

ELSE  —  reason  is  file_error 

buffer  :  =  filename; 

II  (Extract  (buffer, 1,4)  =  "UMT")  AM  NOT 
((filename  =  ”UN ITREPl .COM” )  OR 
( filename  =  ” UN ITE2R2  .COP"'”  )  )  TEEN 
--  in  check.requlred.f lies 
buffer  :=  buffer  &  "a"; 

INI  if; 

—  initial  file  atort 

#  II  NOT  IS_0PEN( test .file)  THEN 

#  Cpen(test  file, "TEST. ABR”,  «/ri te.Only ) ; 

#  ini  if; 

tt  PUT ( test  file, 

#  "FILE  ERROR  TERMINATION  -  **  &  filename); 

#  NEb.LI \E ( test  file);  NEV  LIN|(test  file); 

#  CICSE( test.file) ; 

clear  screen; 

putxyTo  ,3  ,  "HIE  ERROR  TERMINATION;;)? 
putX7(Z  ,5 , buffer  &  ”  is  required  "  a. 

"but  not  present  on  the  assignee  dis 

putx7(0,6, 

’  Copy  the  required  file  to  the  proper  disit.  ”) 
Ea  1 1 ; 

eni  if; 

ENI  terrrinate; 

PROCEDURE  load.fi  le  (f  i lenaire:  IN  STRING)  IS 

—  loads  a  particular  unitrep  data  set 
BEG1  N 

buffer  :=  filename  S.  "a"; 

Open (fyle, buffer , Read .Only) ; 

Read( fyle,u ) ; 

CLOSE ( fyle) ; 

INI  load.f lie ; 

PROCEDURE  store.flle (filename :  IN  STRING)  IS 

—  stores  a  particular  unitrep  data  set 
BEGIN 

buffer  :=  filename  &  "a"; 

EELETE(buffer) ; 

Create (fyle,buf fer , Writ e_ Only ) ; 


Write (fyle.u) i 
CLOSE { fyle ) ; 

ENI  store_file; 

PROCEDURE  load  status  IS 

—  loads~and  performs  operations  required  by  status 
BEGIN 

Op en{ fyle, "STATUS " ,Read_Qnly) » 

Read(fyle, program) ; 

CLOSE ( fy le) ; 

acticn_is  :=  prograir .  curr ent_act ion; 
area_is  :=  program. current_area? 

?ormat_is  :=  program. current_?ormat » 

IE  format _is (msg )  TFEN 
set_f ormat (msg) ; 

ELSIE  format_is ( ocr )  TEEN 
set_f ormatTocr )  i 
ELSE  —  format  is  text 
set  f ormat ( text ) ; 

EM  if; 

line  count  :=  urogram. printing  line; 

IF  action  is(log)  THEN 
lead  file  ("UNIT000"  ); 

ELSE  " 

load  filefprogram.workfile) ; 

ENI  IE? 

ENI  load_status; 

PROCEDURE  store  status  IS 

—  stores  the  status  state 
BEGIN 

—  .unit  set  in  urlocal,  process  local  infrequent 

—  .initial_entry  set  in  unitrep  (quit!  and 

—  main  body 

—  .  print_tra  Her  set  in  unitrep  main  body 
program. message_transmi tted  :=  u.l. status. transmitted 
program. current "act  ion  :=  action_is; 

—  set  in  uni trep. choose_actlon 
program. current_area  :=  areais; 

—  set  in  uni trep. choose_area 
program . current_format  :*  format_is; 

—  set  in  prlntl o . set_f ormat 
program. printing_line  :=  line_count; 

—  set  in  printio.put_printer 

—  .vorkfile  set  in  unitrep. choose  action 
IELETI ( "STATUS” ) ; 

Create { fyle ."STATUS” , Wri te_ Cnly) ; 

Write ( fyle, program) ; 

CLCSE ( fyle ) ; 

ENI  store  status; 

ENI  filerA;  _ 
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PACKAGE  filerB  IS 


—  normal  file  handling  operations  for  the  '2'  data 

—  structure 

FUNCTION  valid_ file (filename:  STRING)  RETURN  BOOLEAN; 

—  checks  for  valid  external  files 

TYPE  reason_code  IS  ( normal , file_error ) ; 

PROCEEURE  terminat e (reason :  IN  riason_code; 

filename:  IN  STRING); 

—  exit  point  for  the  UNITREP  program 

PRCCirURE  load_file( filename:  IN  STRING); 

—  loads'a  particular  unitrep  data  set 

PROCEEURE  store__file(  filename  :  IN  STRING); 

—  stores  a  particular  unitrep  data  set 

PRCCEEURE  load_status> 

—  loads  and  performs  operations  required  ty  status 

PROCEEURE  store_status> 

—  stores  the  status  state 

ENI  filer3J  ’ 


KITE  io  ,uti 1  .strlib  , 
consio .print i o  . 
urglobal , 

— *  urtest, 

uni trepE, 
uradminB  .urairBJ 
PACKAGE  3011  filer3  IS 
use  to; 

USE  printio; 

USE  urglo  tal » 

ESI  unltrep3; 

USE  uradminE  ,urai  rB » 


— JANUS/AIA  library 


—  format_is 

—  action_is ,area_is 
— u.data  types 


—  normal  file  handling  operations  for  the  ' 3 '  data 

—  structure 


fyle:  Till; 


JUNCTION  valid  file(filename:  STRING)  RETURN  BOOLEAN  IS 
USE  io;  —  Open, CLOSE, IOresult 
USE  strlib?  —  Extract 

—  opens  FILENAME  to  check  presence. If  FILENAME 

—  not  present,  returns  FALSE  otherwise  closes 
—  FIL NAME  and  returns  TRUE 

BEGIN 

—  B  unitrep  file 
buffer  :=  fllenare; 

—  check  for  UNITxxx3  files 
IE  ( (Extract (buffer, 1 ,4)  =  "UNIT")  OR 

( Ext ract ( buf f er , 1 ,4 )  =  "B:UN"))  TEEN 
buffer  :*  buffer  &  "3"; 

ini  if; 

Open (fyle, buf f er , Read_Only ) ; 

IF  ICresult  -  255  TEEN  —  file  does  not  exist 
RETURN  FALSE? 

ELSE 

CLCSI(fyle) ; 

RETURN  TRUE? 

eni  if; 

ENL  valid  file; 


PROCErURE  terrrinate  (reason :  IN  reason  code; 

filename:  IN  STRING)  IS 

USE  consio; 

USE  lo.utii;  —  Halt 
n  USE  urtest;  —  test_file 

—  This  procedure  is  the  exit  point  of  the  urogram 
—  reason  car  be  either  NORMAL  or  for  FILE  ERROR 
BEGIN 


--  save  current  unitrep  data 
store_file( "UNIT0O0" ) ; 

IF  reason  =  normal  TEEN 

*  close  final  test; 

Ealt; 

ELSE  —  reason  is  file  error 

—  check  required  files  abort 

*  IE  NOT  IS_CPEN( test_f ile )  TEEN 

*  Cpen(teit  file, "TEST. A.SR”  ,Vrite_Cnly) ; 

n  ini  if; 

*  FUT(test  file, 

*  "FILE  ERROR  TERMINATION  -  "  S.  filename); 

ft  NEW  LINE(  test  file);  NE'*'  LINK  test_f  i le ) ; 

ft  CICSE(  test_file) ; 

clear  screen; 

putxy  (0,3, "FILE  ERROR  ..TERMINATION" )  j[ 
putxy (0,5, filename  &  "  is  required  "  & 

"nut  not  present  on  the  assigned  disk"); 

putxy (0,6, 

"Copy  the  required  file  to  the  troner  disk."); 
Balt; 

ENE  if; 

ENI  terminate; 

PROCEEURE  load  file (filename:  IN  STRING)  IS 

—  loads  a  particular  unitrep  data  set 
EEGIN 

Puffer  :=  filename  &  ”l"; 

Open( fyle, buffer .Read  Only); 

Read ( fyle  ,u ) ; 

CLOSE ( fyle) ; 

ENI  load_f lie ; 

FPCCEEURE  store  f ile  ( filename  :  IN  STRING)  IS 

—  stores  a  particular  unitrep  data  set 
BEGIN 

buffer  :=  filename  &  "S'; 

IILETE( buffer) ; 

Create(  fyle  .buff er  .Writ  e_Cr. ly ) ; 

Write (fyle, u) ; 

CLOSE (fyle); 

ENI  store_file; 

PROCEEURE  load_status  IS 

—  loads  and  performs  operations  required  by  status 
EEGIN 

Open ( fyle , "STATUS" ,Read_Cnly) ; 

Read( fyle , program) ; 

CLCSE(fyle); 

actionals  program.  curre.nt_action; 


area_is  :=  program. curre.ot_area»* 
format, is  :=  program  .current_f  errat ; 

II  forrat_is (msg)  THIN 
set,f ormat (msg)  i 
EISIF  format  is(ocr)  TEIN 
set_formatTocr) » 

ELSE  ~  —  format  Is  text 

set_f  orirat  ( text )  >* 

INI  if; 

line  count  :=  program  .printing  line; 

IF  NOT  valid_f  ile  ("UMT000"  }  TEIN 

terminate'? lie  error,  "UNIT20e"  ) ;  —  check:  UNIT020E 
ENE  IF; 

IF  action  is(log)  TFFN 
load  f ile {’ UNIT000”  ) ; 

ELSE 

load  file (program. worfcf ile) ; 

ENT  IFT 

ENE  load, status; 

PPCCIEUPE  stcre_status  IS 

—  stores'the  status  state 
BEGIN 

—  .unit  set  in  urlocal,  process_lccal_  in  frec  ;ent 

—  . initial_entry  set  in  unitrep  {quit) 

—  and  train  body 

—  .print  ...trailer  set  in  unitrep  Tain  body 

—  .message, transmit ted  set  by  filers 
program. current , act ior.  :=  action  is; 

—  set  in  unitrep. choose_act  Icn 
program . current_area  :=  aria_is; 

—  set  in  unltrep.choose_area 
program. current_format  :=  format_is; 

—  set  in  printio. s et_f ormat 
program .prlntlng_llne  :=  line_count; 

—  set  in  print io .put_printer 

—  .vorkflle  set  in  uni trep. choose_act Icn 
EELETE( "STATUS”); 

Create (fyle , "STATUS”, Write, Cnly ) ; 

Wri te ( fyle , urogram ) ; 

CLOSE ( fyle ) ; 

ENE  store  status; 


ENI  filers; 


VITE  unitrepA.urlocalAi 
PACKAGE  tirlocal  IS 

USE  unltrepAfurloc<ilA; 


— JANUS /A EA  libraries 


WITH  io, strlib, 

consic, priatio , 
urutil , 

urgltl ,urglobal , 
urlocalA.urlocall , 
un itrepA; 

PACKAGE  KEY  urlocal  IS 
USE  coasio,printio , 
urutil , 

urgltl, urglobal, 
ur 1 o ca 1 A, urlo call , 
unitrepA; 

—  Ibis  package  provides  LOCAL  routines  for 
—  UNITREP  construction 

~  Eatd  sets  MSGID/UNITIE,  OPER,  IXER .  POSIT, 
—  Rl"KS  are  supported  cere. 

—  Message  Information  and  ECLAS  supported  in 
—  urlocall 

PRCCIIURE  process_local (part:  IN  irsg_part)  IS 
USE  strlib;  — Str  to_Int,Int  to_Str 

USE  lo i  —Open, CLOSE, CITYLINE 


PROCEECRE  process  local  misc  IS 

USE  strlib;  "  Extrdct 

PROCIEURE  localmask_misc  IS 
PEG  IN 

localmask; 

FUtxy (30 ,3 /’-MISCELLANEOUS-" ) ; 
putxy  (0 ,4,  ’t  ( w)  -la-  Operation  Underway”); 
putxy (1 ,5 ) ;  putxy (12 ,5, "Operation  Codeword"); 
putxy  (4?,5/‘Plan  Originator  and  Number"); 
putxy(  1 ,6,’  or"  ) ; 

putxy (6 ,6 - - - ") ; 

putxy  4S,e.  - -  ) ; 

putxy  (1  ,?,tf !  ); 

putxy(0,8,”(  )  -lb-  Exercise  Underway"); 
putxy (1 putxy (30, 9, "Exercise  Nickname”); 
putxy(  1 ,10,'„or  ’ ); 

putxy(8 ,10  ,  - "& 

••  ^  ^ 

putxy(l ,11," j") ; 
putxy (0,12, 

"(  )  -lc-  Operation/Exercise  Terminated"); 
putxy (2, 14, 

"(  )  -2-  Position  -  Required  for  ship/sub") 

putxy (10,15 , 

Location  (or  EXEMPT)  or  LAT/LONG"); 
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putxy(57,15,"As  Of  ITS"); 
putxy(12,16, 

" - - -  ddirmDC-dddirmEC  ” )  J 

putxy (55 ,16,  "ddhhmmZFb’Pyy"  ) » 
putxy(0  ,18,"(  )  -3-  Remarks  )  J 

ENE  localmaskjrisc; 

PROCEDURE  fill  local_misc  IS 
I  EG  IN 

lccalrask_misc; 

IP  u.l. operation. underway  THIN 
putxy ^4, 4, star); 

put xy (6,6, u.l. ope ration. codew ora); 
putxy  (48  ,6  ,u.  1 .  op  er  at  ion .  pian_o  rg_num  ber ) ; 
1LSIF  u.l. exercise. underway  THIN 
putxy (4 ,8 , star  ) ; 

putxy  (8 ,10  ,u.  1.  ex  ere  i  se .nickname )  ; 

ELSE 

NULL? 

ENT  IF? 

IF  NOT  u.l .position  .lat_long  THIN 

putxy (10 ,16,u . 1 .position .present  loca  tion  ) ; 
ELSE 

putxy ( 33 ,16 ,u. 1 .position .n re  sent  location ) ; 
ENE  if; 

puTxy(Et,16,u.l.position.dtg); 

IF  u.l. position. change  TEEN 
putxy (4 , 14 , star) i 
IF  u. 1 .pos it  ion .ampn . change  THIN 
uutx7(6,14,a  mark); 

ENE  if; 

1  NT/  if; 

IF  u .1 . remarks .change  THEN 
putxy (4, 18, star  ); 
nutxy (21 ,18 , "ON  THIS  PAGE " )  ; 

ELSE 

putxy (21 ,18 , "NONE" ) ; 

END  if; 

SNI  fill_iocal_misc; 

PROCIIURE  p'*ocess_remarks  IS 

—  procisses  remarks  sets 


BEGIN 

u .1 .remarks .nurber_of_pages  2; 

FOR  number  IN  1 . .  max_ rmks_pages  LOOP 

prccess_comment  ( " RtfKS "  &  Ir.t _to_Str  (number) , 

u.l. remarksTpage(number ) ) 
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IF  NOT  u .1 .rema rks .page (number )  .change  TEEN 
HIT;  —  lass  page  not  modified 
ELSIF  u.l .  remarks.  page( number )  .numher_of_lir.es  < 

max_commint  TEEN 

u.l  .remarks. num ber_of_pages  :=  number; 

EXIT;  —  last  pagi  not  completely  used 
ELSE 

u.l  .remarks ..number  of  pages  :=  number; 

ENI  if; 

END  LOCPJ 

IF  u .1 . remarks .numter_of  pages  >  £  TEEN 
u.l. remarks. change  :=  TRUE; 

USE 

u . 1 .remarks . change  :=  FALSE; 

ENT  if; 

FNE  process_remarks ; 

2FGIN 

LCCF 

flll_local_misc » 

— operaticn/exerci se 
modlfy_oper_exer :  LCOP 

IF  NOT  u.l. exercise. urdervay  THEN 
ICO? 

putxyfl  ,4, blank) ; 
getxy  lmmediate(l*4,key ) ; 

CASE  key  IS 
WHEN  xitac 

clear  ?ieid(6.6,32)  i 
clecr~f ieii (48 ,6 ,23  ) ; 
getxyl6,6,buffer,32)  ; 

IF  buffer  *  null_string  TEEN 

u. 1 . operation. unaerway  :=  FALSE; 

ELSE 

u.l. operation. codeword  :=  buffer; 
u.  1. operation. underway  :=  TP.UE; 
putxy (4 ,4 , s  tar ) ; 
getxy (46, g, 

u.l . operation. pi a n_org_num be r ,23)  ; 
EXIT  modify  oner  exer; 

FNE  if; 

WHEN  a  => 

error(29);  —  ampn  not  allowed 
WFEN  no  input ! soace  => 

exit;" 

WHEN  ques  *> 

help ( "0 PER/ EXER” ) ; 
fill  local  misc; 

WHEN  OTHERS  =  ' 

error(6);  — incorrect  input 

ENT  case; 


224 


ENr  loop; 
eni  if; 

IF  NCT  u .1 .operat ion. underway  TFEN 
LOOP 

putxy(l,8,blanic); 
getxy_iirrrediate  ( 1 ,8  ,  Key ) ; 

CASE  key  IS 
WHEN  x | tab  => 

clear_f ield (8 , 10 , £2 )  ; 
get xy Is, 10, buffer,  62  ) ; 

IF  buffer  =  null_string  THEN 
u.l. exercise. underway  FALSE; 

exit; 

ELSE 

u.l. exercise. nickname  :=  buffer; 
u.l .exercise. underway  TRUE; 

putxy(4 ,8 , s  tar ) ; 

EXIT  modify  oper_exer; 

ENI  if; 

WEEN  a  => 

error(2S);  —  ampn  net  allowed 
WEEN  no  input! space  => 

exit; 

WEEN  ques  *> 

helpC'OPEH/EXEH’*); 
fill  local  misc; 

WHEN  OTEERS  => 

errcr(C);  —  inccrrect  input 

ENE  case; 

ENE  loop; 

ENE  if; 

LOOP 

putxy(l, 12, blank); 
getxy_immediate(l ,12, key ) ; 

CASE  key  IS 
WHIN  x | tab  *> 

u .1 .operation .underway  :=  FALSE; 

putxy(4,4,blank) ; 

clear  field  (6  ,6  ,32 ) ; 

clear"field(4e ,6,23) ; 

u.l .exercise. underway  :=  FALSE; 

putxy(4 ,8, blank) ; 

clear_field(8,10,62); 

EXIT  modify  oper  exer? 

WREN  a  => 

error(29);  —  arrpn  not  allowed 
WEEN  no_input  I  space  => 

EXIT  modify  oper  exer; 

WHEN  ques  => 


help(  CPER/EXSR  ),* 
fill  local  (rise; 

WHEN  OTHERS  => 

epror(6)i  —  incorrect  input 
END  case; 
eni  loop; 

END  LOOP  modify_oper_exer; 

irodlfy_position:  LOOP 
putxyf  1,14, blank) ; 

—  position  is  required  for  ship/sub,  only 

—  when  changed  for  others 

IE  ((program. unit  IN  ship. .submarine) 

AND  NOT  (u  .1  .position .change) )  THEN 

key  :=  x; 

ELSE 

getxy  irrredia te (l ,  14, key) ; 

ENI  if;" 

CASE  key  IS 
WFEN  X ' tab  => 

putxy (4 ,14, star ) ; 
clear  field (10, ie, 20) ; 
putxyl33 ,  16  ^"ddmirlC-dddmirDC" )  ; 
putxy(5h,16,"ddhhirn,Zr'Mb'yy”  ) ; 
getxy( 12 ,16 , 

u .1  .posl  tion . presen t_loca  tion  ,2 f£)1 
u .1 .position. change  :=  TRUE;" 

IF  u. l.posi tion. present  location  =  ” EXEMPT" 

THEN 

NULL;  —  nc  farther  action  required 
ELS  IF  u. 1. position. present_location  = 

null_string  THIN 

—  get  lat/long 
u. 1. position. lat  long  :=  TRUE; 

LOOP 

getxy (36,15 , 

u.l . posit i on .present_lc  cat  ion , 14) ; 
verify_lat_lo  ng( 

u. 1. po si ti on. u resent  locat ion .success )  ; 
EXIT  WFEN  success; 
putxy(35, 16 , 

u.l .position. present  location)  ; 

ENL  loop; 

—  get  asof  dtg 

LOOP 

getxy (55, 16, u.l. position. dtg, 12); 
verify  dtg (u.l. posit  ion. dtg.succ ess); 
EXIT  WHEN  success; 
putxy (55, 16, u.l. position. atg); 

END  loop; 


u.l. position. lat_long  :=  FALSE; 

— "get  asof  itg 

LOOP 

getxy (55,16 ,u.l.position.dtg,12); 
verify_dtg( u. 1 .pcs it  Ion .dtg .success ) ; 
EXIT  WEEN  success; 
putxy (  55, 16, u.l. position. dtg) ; 

END  loop; 

ENE  if; 

WEEN  a  => 

IF  u.l. position  .change  TEEN 
process_coirfrent  (  "?0S  IT  "  , 

u  .  1.  posit  ion  .  arrpn ) 

fill  local  rise; 

ELSE 

error{27);  —  set  not  changen 

ENE  if; 

WEEN  no_input } space  => 

EXIT  fnodlfy_position; 

WHEN  aues  => 
help(  "POSIT")  ; 
fill  local_rrisc* 

WEEN  CHEERS  => 

error(28);  —  allowable  inputs 

ENI  case; 

ENE  IOCP  irodify_position; 

—  remarks 
IF  irarkd.lS)  TEEN 
process_rerrarks ; 
fill  local  rriscJ 
ENE  IFT 

putxy (0 ,20 ,b lan kin ) ; 

putxy  ( 0 ,20  ,]j<2NTER>  to  continue,  ENTER  <X>  "  & 

"to  Reselect : " ) ; 
reselect  :=  marir(  44 ,2Z  ) ; 

EXIT  WHEN  NOT  reselsct; 

ENE  LCCP; 

ENI  process_local_tri sc; 


PROCEIURE  process_local_inf requent  IS 

PRCCSIUPE  localrrask_inf requent  IS 
EEGIN 

localiresk; 

putxy(24,3*”-INFRECUENTLY  CP  ANGEL  ITEM-"); 
putxy(0,5,  (  )  -1-  Unit  Type"); 
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putxy (8 ,€ , " {  )Ship  (  )Suomarine  (  )Air 
”(  )Shore  (  )Other" ); 
putxy(0 ,9 , " (  )  -2-  Unit  identification  -  ” 
"OPNAVINST  3503.1  APP .  C’’); 

putxy (8,10,  " - - - ”)r 

putxy(e  ,12 ,  ((  )  -3-  Last  Serial - ); 

putxy(0 ,15, "(  )  -4-  Message  to  be  Prepared  "  & 

"as  Feeder:"); 

putxy (12,16, "(UNITII  vice  MSGIT  data  set)"); 

END  localmask_inf requent; 

PHGCEEUPI  fill  local  infrequent  IS 
BEGIN 

localmask_in  frequent; 

CASE  program. unit  IS 

WHEN  ship  =>  putxy(9,5  ,x_irark) ; 

WHEN  submarine  =>  putxy(  19 ,6 ,x_mark) ; 

WHEN  <air_unit  =>  putxy (34,6 ,x_marfc) ; 

WEEN  shore  =>  putxy(43,6,x_mark) ; 

WEEN  other  =>  putxy(54,e,x  mark); 

ENl  case; 

putxy (8 ,10 ,u.l . status .uni t_id )  ; 
putxy (20, 12,u.l .status.last_serial ) ; 

IF  u. 1 . status. feeder_report~THEN 
putxy (45, 15, "YES”  )? 

ELSE 

putxy (45, 15, "NO”  5; 

ENE  if; 

IF  u  .1 .status .arpn. change  TEEN 
putxy ( 4,15,a_mark) ; 

END  IF; 

ENE  fill_local_i nfrequent ; 

BEGIN 

LCCP 

f ill_local_infr equent ; 

—  status. unit  type 
IF  mark(l,5)  THEN 
CASE  program. unit  IS 

WHEN  ship  =>  putxy(9,6, blank) ; 

WEEN  submarine  *>  putxy ( 19  ,6 , blank) ; 

WPE N  air_unit  =>  putxy(34,6, clank); 

WEEN  shore  =>  putxy '43 ,6 , blank) ; 

WEEN  other  =>  putxy(54,£ , blank) ; 

END  CASE? 

LOOP 

IF  irark(9,6)  THEN 

program. unit  :=  ship;  EXIT; 

ELS  IF  mark(l9,6)  THEN 

program. unit  :=  submarine;  EXIT; 

ELSIF  mark(34,6)  TEEN 
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rrograir  .uni  t  :=  air_unit;  EXIT; 

ELSIE  mark(43,6)  TEEN 

program. uni t  :=  shore;  EXIT; 

ELSIE  mark (54, 6)  TEEN 

program. unit  :=  other;  EXIT? 

ELSE  error(16);  —  must  choose  one 

E NE  if; 

ENT  LOOP; 

end  if; 

--status .unit _identificat ion 
IE  markd ,9)  TEEN 
LOOP 

clear_i'ield(8,10,30); 

get xy  { 8,10 ,u.l. status. unit_id, 30); 

EXIT  WHEN  u.l . status. unit_id  /=  null_string; 
error(22d  —  required  item 

END  loop; 

ENT  if; 

—  last  serial,  should  only  be  usea  for  initial 

IE  mark ( 1 , 12 )  THEN 

—  warning  on  changing  serial 
error(23);  error(24); 

putxy( 1 ,12, blank) ; 

IF  mark(l  ,12)  THEN 
cleaf_f ield (20,12,3); 
u.l .status. last  serial  := 

getxy^digit  s (20 , 12,3) 
IE  u . 1 . s la t us . 1  as t_ ser ia 1  /—  S99  TEEN 

u . 1. status . curr ent_ser ial  :=  zero_pad(3, 
Int_to_Str(  Str_tc~Int( 
u  .1  .status,  last’serial )  +  1  )  ); 

ELSE  "  i# 

u .1 .status. current  serial  :=  "001"; 

ENE  ie; 

ini  if; 
end  if; 

--  feeder  report  used  to  separate  addresses 

—  and  determine  UNITII  vice  mssir  set 
modify_msgid_unltid  :  LOOP 

putxy  d  ,15 .blank) ; 
getxy  immediate (1 ,15, key ); 

CASE  key  IS 
WEEN  x ! tab  »> 

LOOP 

putxy (45, 15 , " (Y/N )  ?  :  "); 

getxy  immediate(55,15,key) ; 

I?  key  =  'X'  TEEN 

u. 1. st a tus. f eeder_repor t  :=  TPUE; 

exit; 

ELSIF  key  =  ' N '  THEN 

u.  1. status,  feeder,. report  :=  FALSE; 


error(6);  —  incorrect  input 
ENE  15? 
ini  loof; 

VEIN  a  => 

—  this  set  always  submitted, 

—  no  check  for  change 
process  _c  orrmen't  {”  IEENT" ,u.l .s tatus.ampn ) 
fill_local_in frequent; 

VEEN  no_input i spa ce  => 

EXIT  modify_m sgid_uni tid ; 

VEEN  ques  => 
help ( " IIENT ” ) J 
fill  local  infrequent; 

VEEN  OTHERS  => 

error(6)>  —  incorrect  input 

ENE  case; 

EM  IGCP  modify _msgid_uni tid J 

—  reselect  option 
putxy(0 ,20,blankln)  ; 

putxy (0 ,20 , "<ENTER>  to  continue,  E^ITEE  <X>  to 
"Reselect:”) ; 
reselect  :  =  rrark(  44 ,20  ) ; 

EXIT  VEEN  NOT  reselect; 

INI  loop; 

INI  process_local_inf requent; 

PROCEEDHE  printmsgfpart :  IN  msg_part ;  IS 
USE  strlibj  ~  —  Extract 

address  indent:  STRING; 

BEGIN 

IE  part  =  header  THEN 
IE  action  is(draft)  THEN 
ECR  i  IN  1..45  LOOP 

out  printer(null  string); 

END  lOcp; 

put_printer ("RCS  UNITREF  DRAFT  DATA"); 
put_printer(u. 1. status. unit_id  &  "  SERIAL 
&  u. 1 .  status . current_seria 1 ) ; 
put_printer (null_string 5 ; 
put^pri nter ( 

"CLASSIFY  IN  ACCORDANCE  WITH  OPNAVINST  5S10 . 
NEV  page; 

draft  aid ("INITIAL  ITErs"); 
mv  fJge; 

ENE  If; 

CASE  u . 1. message. precedence  IS, 

WHEN  routine  =>  buffer  :=  ’r”; 


WHEN  priority  =>  buffer  :=  P  l 
WEEN  immediate  =>  buffer  :=  "O  » 

WEEN  flash  =>  buffer  :=  ’z"; 

ENI  case; 

put_printer( buf f er  &  &  u.l.ressage.dtg); 

II  f  orrrat_is  (ocr )  TEEN 

address~indent  ;=  Extract ( blankln  ,1 ,18) ; 

ELSE 

address_indent  :=  null  string; 

ini  if; 

put_printer( address_indent  &  FM  & 

~u.l  .rressage  .  origin* tor_address ) ; 
pr in t_addressee( "ACTION" ) ; 
print_addressee( " INFO")  ; 

CASE  u .  1.  ires  sage,  cla  s  si  flea  lion  IS 
WEEN  unclas  => 

buffer  :=  "UNCLAS"; 

WFEN  confidential  => 

buffer  :=  ' C  0  N  i  I  r  E  M  T  I  A  L  J 
WHEN  secret  => 

buffer  :=  “S  E  C  P  l  T"; 

WEEN  top_secret  => 

buffer  :=  ”T  C  P  S  E  C  3  E  T”; 

INI  CASE? 

put_pr inter (buffer) ; 

IF  actionis (draft )  TEEN 
draft  aid (  MESSAGE  EEAIZR ' ) J 

new_page; 
em  if; 

—  oper/exercise 
IF  u.l  .operation .underway  TEEN 

IF  u.  1 .  ouerat  ion.  pi  an  org  nuirber  /-  null  string 

TEEN 

buffer  :  =  u.  1  .operat  ion  .  codeword  5.  ' 

&  u  .1  .opera  tion.  plan  org  nurrberJ 

ELSE 

buffer  :=  u.l. operation .codeword; 

EM  if; 

put_printer("OPER/"  buffer  &  "//”)» 

ELSIF-u.l .exerci se . unde rway  THEN 
p,ut_print  er  ( 

"IXER/"  &  u.l. exercise. nicknaire  &  "//’); 

ENE  IF; 

I?  action_is (draft )  TEEN 
draft  aid ( "OPZR/EXER" ) J 
ENE  IF  J “ 

—  msgid/unit  sets 

IF  NOT  u. 1. status. feeder_ report  THIN 


—  irsgid 


put_prir.ter?(  MSGII/UNITREP/  &  u .  1 . status . uni t_ld 
&  "/'  &  u.l. status. current_serial  &  "//”); 
ELSE  —  unltid  separation 

N2V_PAGi; 

IT  action_is (draft )  TFEN 

put  printer( “******  Page  Separation  Point  "  & 
"for  FEEDER  REPORTS  .»***»*"); 

END  if; 

put_printer( null_st  ring) ; 

put_printer ("UNITII/'  &  u. 1 . status. unit_id 

"/"  &  u. 1 . status .current  serial  &  '//"); 

ENE  if; 

IF  action_is  (draft )  TEEN 
draft  aid(>SGIE/UNITir")  ; 

ENE  if;" 

—  posit  set 

IF  required  print (uRl .position . change )  TEEN 

buffer  :=“  POSIT/"  &  u.l. position. present  location 
&  "/"; 

IF  u. 1 . posi tion. present^loca tion  =  "EXEMPT"  TEEN 
put_printer(buf fer  k  "/"); 

FESE 

put  printer  (buffer  i.  u.  1 . position. d  tg  k  "//"); 
END  if; 

IF  u  .1  .pos  it  ion  .airpn .  change  TEEN 
print  comment ( "POSIT" ) ; 

END  if;" 

ENE  if; 

IF  action  is (draft)  TEEN  draft  aid ( "FOS  IT" ) J  EKE  IF; 


.SE  —  message  trailing  items 

IF  action_is(draft )  OR  u.l .status. f eeder_report  TEEN 
NEW  fags; 

END  IF; 

IE  u.l. remarks. change  TEEN 

FOR  page  IN  1 . .u. 1 . remarks . number_of _pages  LOOP 
Open(  fyle  ,"RMXS”  S.  Int_to  St r( pageT  &  ".AM?”, 

Read_Cnly ) ; 

FOF  line  IN  1 .. u. 1. remarks .page (page) . 

number  of_lines  LOOF 

buffer  :=  GET_LINE( fyle) ; 

IF  page  =  1  AND  line  =  1  TFEN 
buffer  :=  "RMKS/"  &  buffer; 

ENE  if; 

IF  page  =  u . 1 .remarks . number _of  pages  ANE  TEEN 
iine  =  u.l. remarks. page (page). 

number  of  lines  THEN 

buffer  :=  buffer  &  "//"; 

ENE  if; 


ENE  loop; 

CLOSE (fyle) ; 

ENE  loop; 

ENE  ip; 

I?  action_is(draf t )  TEEN  draft _aid ("RMKS  );  END  IE; 

— declas 

IE  u.  l.iressage. classification  >  uaclas  TEEN 
pnt_printer ( ”ECLAS/“  & 

u. l.iressage. declassification  &  "//"); 

EM  if; 

put_printer(end_trans ) ; 

IE  action  is(draft)  TEEN  draf  t_aid  ( "ECLAS ’’ ) ;  END  IF 
ENE  if; 

ENE  print_msg»* 


BEGIN 

IF  action_is(nevv)  TEEN 
u.l. change  :=  FALSE; 
u.l .status. transmitted  :=  FALSER 
IF  u.l  .status .current_serial  /=  "99S"  TEEN 
u. 1. status .current_serial  := 

zero_pad (3 , Int_to_S tr (Str_to_Int 

(u.l .statrsTlast  serial)  +1)); 

ELSE 

u.l .status. current  serial  :=  201  ; 

ENE  if; 

u.l. status. airpn. change  :=  FALSE; 
u.l  .iressage. precedence  :=  priority; 
u. l.iressage. dtg  :=  null_string; 
u.l  .iressage. classification  :=  confidential; 
u.l .message. declassification  :=  null_strlng; 
u.l .position. change  :=  FALSE; 
u.l. position. airpn. change  :=  FALSI; 
o .1 . remarks .change  :=  FALSE; 

FOR  i  IN  1 .  .irax_rmks_pages  LOOP 

u. 1. remarks. page( il. change  :=  FALSE; 

END  loop; 

ELSIE  action  is(rrodify)  TEEN 
process_local_mf  requen  t ; 
process_lccal_msg ; 
process_local_irisc; 
u.l. change  :="TRUE; 

ELSIE  action_is (print )  OR  action_is (draft  }  OR 
actionals (verify)  TEEN 
pri nte  r_onT 
print_msg (part ) ; 
printer  off; 


ILSJI  action_is ( log)  THIN 

■"—""delete  .AMP  files,  not  saved  in 
--  data  structure 
IILETE(  ’"POSIT. AMF”)  J 
I  El  ST  I  ( "IEENT  .AMP** )  • 

FOB  i  IN  1. .  u.  1.  reirarks .  nuirber  of_pages  LOOP 
DILETEf  ’RMKS ”  &  Int  to  Str(iT  &  .AMP"); 

sni  loop; 


VITE  urlocalA* 

PACKAGE  urlocall  IS 
DSI  urlocalA; 

—  provides  processing  of  message  information 
PROCEDURE  localmaslc; 

PROCEDURE  process_local_msg; 

FROCEIUPE  print _addressee(fiien ame :  IN  STRING); 


WITH  io.strlib,  — JANOS/AEA  libraries 

consio, printio , 
urglo  bal , 
unitrepA, 
urlocalA; 

PACKAGE  30IY  urlocall  IS 
USE  consio , printio , 
urglotal , 
unitrepA , 
urlocalAJ 

—  This  package  provides  Passage  Inforrat  ion  LOCAL 

—  routines  for  UNITRE?  construction.  The  L'CLAS 

—  data  set  is  supported. 

FROCEIURE  localirask  IS 
BEGIN 

border? 

putxy( e ,1 ."local" ) ; 

putxy (Z ,20, "ENTER  <X>/tat  to  select,  "  & 
"<ENTER>/space  for  next,  <A>  to  airplify,  "  i. 

"<?>  for  help”); 

5NE  localjraski 


PROCEIURi  process_local  jnsg  IS 

address_line:  STRING; 

FROCEEURE  Iocalrrask_n-sg  IS 
BEGIN 

localrrask? 

putxy (2S  ,3t, ’-PESSAGI  INECRPATICN-”  )  ? 
putxy( 0 ,4 , ] (  )  -1-  Acdresses" ) ; 
putxy (8 ,5, "(  )  Originator  - 


putxy(8,6,"(  )  Action  ); 
putxy (6, 7, "(  )  Info";; 
putxy(0,9,  (  )  -2-  Classification  ); 
putxy(3S,9,’  (  )  -3-  Precedence"); 
putxy (9 ,10, "-  Unclas"); 
putxy(4e,10i,"-  Routine";; 
putxy(9,ll,  -  Confidential"); 
putxy (48 ,11*"-  Priority"); 
putxy (9 ,12 ,  -  Secret"); 
putxy  (48,12, Iirirediate"  ) ; 
putxy(S ,13 Top  Secret"); 
putxy(48,13,"-  Flasv"); 
putxy(0,ie, 

"(  )  -4-  reclassification  Instructions"); 

putxy  (8 ,17 ,  " - "s 


INI  localirask_irsg» 

PROCEDURE  fill  local  rrsg  IS 
EIGIN 

localmask_rrsg; 

putxy (  23, 5,  v  .1 .message. origin at or .address)  ; 

CASE  u.l .message, classification  IS 
WHEN  unclas  =>  putxy  (9  ,10 ,x_mark) ; 

WHIN  confidential  =>  putxy ( 9 ,11  ,x_mark) » 

WHEN  secret  =>  putxy (9,12, x.mark) ; 

WEEN  top  secret  =>  putxy(9,13,x  rrark); 

END  case; 

CASI  u.l. message. precedence  IS 

WEEN  routine  =>  putxy (48 , 10 ,x_mark) ; 

WEEN  priority  =>  putxy (48,11 ,x_mark) » 

WHEN  immediate  =>  putxy ( 48 , 12  ,x_mark ) ; 

WHEN  flash  *>  putxy  (48 ,23 ,x  mark); 

ine  case; 

IE  u.l.iressage. classification  >  unclas  THEN 
putxy (4,16,star); 

putxy (8 ,17, u. 1. ness  age. declassification) ; 

END  if; 

END  f i ll_local_rrsg; 

PROCEDURE  process  addressee' filename  :  IN  STRING)  IS 
USE  strlib;  —  Extract 
USE  io;  —  Open, Close, Get_llne 

max_address:  CONSTANT  :=  15; 

sic1:  CONSTANT  :=  4;  —  screen  line  offset 

add ress_line :  STRING; 

mark .number. of.addr esses :  INTEGER; 

address:  ARRAY  (l..rrax  address)  CF  STRING(50); 


FRCCEDURI  addressrnask  IS 
EEGIN 

address_line  :*  ’ - ."  &  Extract (da shin ,1 ,44) ; 

border; 

putxy (0,1  .filename  &  "  ADDRESSEES"); 

FOR  llne.number  IN  1.  .irax_address  LOOP 
putxy(l£,slo  +  line  number  .address  line); 

END  icop; 

putxy(10,3,”The  rrarks  the  starting  point  "  & 
"for  continuation  lines"); 

END  addressrnask. 

FPCCIDUPE  fill  addressrnask  IS 
EEGIN 

addressmask; 
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FOE  i  IN  1 . . nurrber_ of _addresses  LOOP 
putxy(15,slo+i,address(i)); 

ENr  iccp; 

IND  f il l_addressmask; 

FBCCEIURE  initialize  addresses  IS 
IIGIN 

address (1)  :=  "DELETE  This  Line  and  Put  "  & 
"First  Address- Here"; 

FOR  1  IN  2.  .max_address  LOOP 
address(i)  :=  null  string; 

ENI  LOOP? 

END  initialize  addresses; 


EEGIN 


readin  current  addresses 


ini tiali ze_addres  ses; 

CPEN( fyle, filename, Read _0nly  ) ; 

FOR  i  IN  l..max  address  LOOP 
EXIT  WBIN  ENE~0I_FI1I ( f yle ) ; 
address(l)  :=  GST_LINE( fyie ) ; 
number  of  addresses  :=  i; 

INC  LOOP? 

CLOSE ( f yle ) ; 
fill  addressmask? 

LOOP" 

putxy(0,20,blankln) ; 

putxy  (10,20,  ’'<ENTIR>  to  continue,  "  & 

"<C>  to  change,  <E>  to  erase, 

"<?>  for  help”) ; 
getxy  immediate (78, 20  , Key ) ; 

CASE  key  IS 

WHEN  no  input {space  => 

exit;" 

WHEN  c  => 
mark  :=  l; 

LOOP 

putxy (0,20, plankln) ; 

putxy (0,20, "<E>  to  delete,  <A>  to  add  ”  & 
"at  the  cursor  position,  "  & 

"<X>  to  exit  change"); 
getxy  immediate(13,slo  +  mark, key); 
putxyll3, si o ♦mark, clank)  ; 

CASE  key  IS 

WEEN  no_input j space  => 

IF  (mark  s  numter_of_addresses  +  1) 

CR  (mark~=  max  address)  TEEN 
mark  :=  i; 

ELSE 


mark  := 


mark  +  l; 


WHEN  xitat  =>  EXIT; 

WEEN  d  => 

FOR  i  IN  mark . .number  of_addresses+l 

LOOP 

address(l)  :=  address  (i+1 ); 

ENE  loop; 

address (max_address )  :=  null_string; 

IE  number_of_add resses  /=  0  THEN 
number_of_addresses  := 

number  of  addresses  -  i; 

ENE  if; 

fill_addressmask; 

WHEN  a  => 

IF  number  of  addresses  <  15  TPEN 
FOR  1  IN  REVERSE  mark+1.. 

max  address  LOOP 
address'i)  :=  address (1-1 ) ; 

ENE  loop; 

address  (marie)  :=  null_string; 
number_of_addresses  := 

number_of_addresses  +i; 
f  ill_addressmasie; 
getxy(15,slo  +  marie, 

address  (marie) ,50) ; 

mark  :=  mark  ♦  l; 

ELSE 

error (30) ; 

—  only  15  addresses  allowed 
END  if; 

WFEN  CTEIRS  =  > 

error(€);  —  incorrect  input 
END  case; 

ENE  loop; 

WHEN  e  => 

inltlalize_addresses; 
f ill_addressmask; 

WEEN  ques  => 

help( "ADERESSEES" ) ; 
f ill_addressmask; 

WHEN  OTHERS  => 

error(6);  —  Incorrect  input 

ENE  case; 

ENE  loop; 

—  store  file 
EELETE(f ilename) ; 


Create(  fyle  ,f  ilename, Write_0.nly ) ; 

FOR  1  IN  1 . ,max_address  LOOP 

EXIT  VP IN  address(i)  -  null_string; 
PUT(fyle,address( i ) ) ; 

NEW  LINK  fyle ) ; 

EM  ICC?; 


CLOSE (fyle ) » 

ENE  process_addressee; 

BEGIN 

LOCF 

flll_local_msg; 

--  addresses 
n-odify_addresses:  LCGF 
putxy  ( 1 ,4, blank } » 
getxy_i[riredidte(l  ,4. key) » 

CASE  key  IS 
WEEN  xitab  => 

IF  rrark(9,5)  THIN 

—  originator 

LOOP 

clear_f ield(23,5,£0) ; 
getxy (23,5, 

u.  1  .rres sage.  originator_address,50)  ; 
EXIT  WEEN  u .1 .message . origlnator_address 

/=  null_string; 

error(2Z);  —  address  reauired 
ENE  loop; 

ENr  if; 

—  action 

IF  rrark(9,6)  TEEN  . 

process_addressee( "ACTION" ) ; 
fill  local  irsg*' 

END  IF? 

—  info 

IF  irark(£  ,7)  TEEN 

process_addressee( "INFC" ) ; 
fill  local  irsg; 

ENE  IF? 

WEEN  no_input J space  => 

EXIT  n-odlfy_addre5ses; 

WEEN  ques  => 

help ("AEDRFSSEES" )» 
fill  local_ir sg 5 
WEEN  OTEERS  => 

error(O);  —  incorrect  input 

END  case; 

END  IOCP  modify_add resses; 

—  fressage.  classification 
IF  rrarkfl.9)  TEEN 

CASE  u.l  .iressage.classif  icat  ion  IS 
WHEN  unclas  =>  putxy(9,10,dash) ; 

WHEN  confidential  =>  putxy(9,ll  .dash) ; 

WHIN  secret  =>  putxy(9,12fdash) ; 

WEEN  top  secret  =>  putxy (9  ,13  ,dash) ; 

ENE  case; 


IF  mark(9,10)  TF2N 

u.l. message, classification  :=  unclas; 
u  .1  .message. declassif icati  on  :=  null_string; 
putxy  (4,16, blank)  * 

EXIT  J 

ELS  IF  mark(9,ll)  TFEN 

u . 1 . message .cla ssification  :=  confidential; 

exit; 

ELS  IF  mark(S,12)  TEEN 

u  .1 .message . classifica ti on  :=  secret; 

exit; 

ELSIF  mark (9, 13)  TEEN 

u .1 .message .classified tion  top  secret; 

exit; 

ELSE 

error(16);  —  must  choose  one 

ENE  if; 
eni  loop; 
end  if; 

—  message. precedence 
IF  mark  ^  40 ,9 )  TEEN 

CASE  u.l .message. precedence  IS 

WHEN  routine  =>  putxy( 48 ,10 .dash) ; 

WEEN  priority  *>  putxy(4e,U  ,aash); 

WEEN  immediate  =>  putxy ( 48 ,12 ,ias h ) J 
WEEN  flash  =>  putxy '48 ,13 , dash; ; 

ENE  case; 

LOOP 

IF  mark (48 ,10 )  TEEN 

u  .1 .message .precedence  :=  routine; 

exit; 

ELSIF  mark (48, 11)  TEEN 

u.l. message. precedence  :=  oriority; 

exit; 

ELSIF  mark (48,12)  TEEN 

u  .1  .message .preced ence  :=  immediate; 
i X  IT  J 

ELSIF  mark (48 ,13)  TEEN 

u.l. message. precedence  :=  flash; 

exit; 

ELSE 

error(ie);  —  must  choose  one 

ENE  if; 

ENE  loop; 

ENE  if; 

—  message. declassif ica tion 
IF  (u.l .message .classification  >  unclas 

ANE  u .1 .message .declassif ication  = 

null  string/  TEIN 


nriority; 


=  immediate; 


:=  flash; 


LOOP 

clear  field(8,l?,61 ); 

get  xyl8, 17,  u.l.  ires  Sage,  declassified  tion,€l) ; 
SXIT  WHIN  u.l  .rressage .declassification 

/=  null_string 

error(21)» —  required  for  classified  message 
ENE  loop; 
ene  if; 

—  reselect  option 
putxy  (0  ,20,blanJcln  ) ; 

putxy(  0 ,20 ,  "><ENTER>  t£  continue,  ENTER  <X>  to  "  & 
"Reselect :  ‘ ) ; 
reselect  :=  marfc(44,2e) ; 

EXIT  WHEN  NOT  reselect; 

ENE  loop; 

ENE  process_local_rrsg; 

PROCEIURE  prl nt_addressee (filename :  IN  STRING)  IS 
USE  ioj  — Open, Close, GET_LIN£ 

USE  strlib?  — Extract 

address_indent :  STRING; 

BEGIN 

■  Open(  fyle  .filename, Read_Only) ; 

(•"„.  IE  format_i15(ocr)  THEN 

~  address_indent  :=  Extract  (  blanitln  ,1 ,16) ; 

’  ELSE 

address  indent  :=  null  string; 

ENI  if; 

IF  filename  =  "ACTION'  TEEN 

buffer  address  indent  &  "TO  "; 

USE 

buffer  :=  address  indent  &  "INFO  "; 

ENE  if; 

buffer  :=  buffer  &  GET. LINE ( fy le ) ; 
put  printer ( buff er ) J 
WHILE  NOT  ENE _OF_ FILE (fyle)  LOOP 
buffer  :*  address  indent  & 

&  git_lIne ( fyle ) ; 
put  printer(buffer) ; 

ENE  LOCP; 

CICSE(fyle); 

II  f ormat_is ( msg)  AND  filename  =  "INFO"  THEN 
put  prlnter(end  trans); 

ENE  if; 

ENI  prlnt_addressee ; 

END  urlocallJ 
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—  JANUS/ALA  Libraries 


WITH  io,strlib, 

conslo ,printio , 
urglbl  f  urglobal , 
urutil , 
uni trepE,uradminB; 

PACKAGE  90IT  uradmin  IS 
USE  coasio ,printio , 
urglbl , urglobal , 
urutil , 

unitrepB  ,uradmin3  » 

—  This  package  provides  ADMINISTRATIVE  routines  for 
—  UNITREP  construction. 

--  Data  sets  COMMAND,  ACTIV,  MEDIC,  REPCRG  and 
—  VERIET  are  supported. 

PROCErUPi  process  administrative  IS 
USE  io,  —Open, Close, Snd_cf_Eile 
strlib?  — Extract 

—  performs  required  manipulation  of  administrative 

—  information 

PROCEDURE  adminmask  IS 

—  draws  the  admin  fields  screen 
BEGIN 

border; 

putxy( 2 , 1 ."ADMINISTRATIVE  "); 

putxy  (0 ,4  ,*’ (  )  -1-  Command  Change”); 

putxy(35,4,;;C0/CIC"); 

putxy  (45  ,4 ,  _ - - -  ); 

putxy(25, 5, "Effective  DTG"); 

putxy  ( 52, 5Jt"ddhhmmZMMMyy"  ) ; 

putxy(0,7,  (  )  -2-  Activity  Change’); 

putxy  (35, 7,,' Code  — ”); 

putxy (0,9 ,’  ,(  )  -3-  tiPhysician  Status’’)? 

putxy(25,S,' t(  )  Onboard"); 

putxy(35,10;>’ (  )  Departed"); 

putxy (2, 12,  '(  )  -4-  New  Reporting  ORG"); 

putxy(35, 12, 'Effective  DTG" ) ; 

putxy (62,12, "ddhhmmZMMMyy") ; 

putxy (11 , 13 , 

(  )CNO  (  )C IN CPA CELT  (  )CINCLANTFLT  ” ) J 

PUT ( " (  )  C INCUS NAVEUR” ); 

putxy (2,15, "(  )  -67  Feedback  Verification"); 

putxy(35,15,'fi(  )  le'*  d”)J 
putxy (35 ,16, "(  )  Collected”); 

putxy(0,20,"<X>/tab  to  Select,  <ENTER>/space  ’’  5. 

"for  next,  ^A>  to  amplify,  <?>  for  HELP"); 

END  adminmask; 


PROCIIURI  fill_adminmask  IS 

—  fills  in  the  administrative  screen  with 

—  change  information  from  the  vorkfile 
BEGIN 

adminmask? 

putxy ( 45, 4, u. ad. command .cool c) ; 
putxy (62 ,5 ,u .ad. command .dtg) » 

II  u. ad  .command .change  TEEN 
putxy(4,4,star); 

IF  u. ad .command .ampn. change  TEEN 
putxv (6,4 ,a  mark) ; 

END  if; 

EM  if; 

putxy(41,?,u.ad .act iv .act ivi ty_code ) ; 

IF  u. ad. activ . change  THEN 
putxy(4,?,star); 

IF  u. ad .activ. ampn. change  THIN 
putxy(6,7,a  mark); 

END  IF; 

END  if; 


IF  u. ad. medic. status  =  onboard  TEEN 
putxy (36 ,9 ,x_mark) ; 

ELSE 

putxy(36,li2,x  mark); 

ENI  IF; 

IF  u. ad. medic .change  THEN 
putxy(4t9,star) ; 

IF  u .ad .medic. ampn .change  TEEN 
putxy (6,9, a_mark) ; 

END  IF; 

EM  if; 


IF  u. ad . reporg .new_rep  org  =  cno  THEN 
putxy (12, 13 ,x_mark) i~ 

ELSIF  u. ad. reporg. new_rep_org  *  cincpacflt  TEEN 
putxy (21,13 ,x_mark)T 

ELSIF  u. ad .reporg. new_rep_org  =  cinclantflt  TEEN 
rutxy (37 ,13  ,x  mark); 

ELSE 

putxy (54,13, x_mark) ; 

INI  if; 

putxy(62,12,u .ad. reporg. dtg) ; 

IF  u. ad. reporg. change  TEEN 
putxy(4,12,star ); 

IF  u. ad .reporg. ampn  .change  THEN 
putxy(6,12,a  mark); 

END  if; 
end  if; 
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II  u. ad. verify .feedback_ver  =  sralid  THIN 
-  putxy(36 ,15 ,x jrark) ; 

ELSE 

putxy(36,16,x_marfc)  ; 

INE  if; 

II  u. ad. verify. change  THIN 
putxy (4  ,15 , star ) * 

II  u. ad .verify .ampn .change  THEN 
putxy{6,15,a  mark); 

END  if; 

INE  if; 

ENl  fill  adminmask; 


—  do  the  appropriate  action 
IF  action_is  (new )  TEEN 
v. ad. change  :=  FALSE; 
u. ad. command, change  :=  FALSE*, 
u. ad. command. ampn. change  :=  FALSE; 
u. ad. activ. change  :=  FALSE; 
u. ad. activ.arrpn. change  FALSE; 
u. ad. medi c. change  :=  FALSE; 
u. ad. medic. ampn .change  :=  FALSE; 
u. ad. reporg. change  :»  FALSE; 
u. ad.  reporg. ampn.  change  FALSE; 
u  .ad.  verify  .change  :=  FALSE,' 
u. ad. verify .ampn .change  :  =  FALSE; 


ELS II  action_is (modify 5  THEN 
modify_adiri n :  LOCP 
f ill~admlnmask; 
modify_command  :  LOOP 
putxy (1 ,4, blank) ; 
getxy_immediate(l  ,4, key) ; 

CASE  key  IS 
WEEN  x ! tab  => 

putxy(4  ,4, star)  ,* 
clear  field (45, 4, 30 ) ; 
putxyl62 ,5 ,  "ddhhmrZPTMyy " ) ; 
getxy(4E ,4, buff er,3e) ; 

IF  buffer  =  null_string  THEN 
u. ad. command. change  :  =  FALSE; 
u .ad . command . ampn . change  :=  FALSE; 

ELSE 

u .ad. command. cooic  :=  buffer; 
u. ad. command. change  :=  TRUE,' 
u. ad. change  :=  TRUE,' 

LOOP 

getxy (€2 ,5,u. ad .command ,d tg ,12) 5 
verify  dtg( u.ad . command. dtg, sue cess) 
El IT  WEEN  success; 


putxy(€2,5,u.ad  .conrrand  .d  tg ) ? 

END  loop; 
ene  if; 

WHIN  a  => 

IF  u. ad. command. change  THEN 
process_comment  ( '  CC^NANE"  , 

u.  ad .command .  ampn) 

fill  ddminmask; 

USE 

error(27);  —  no  set  to  amplify 

ENE  IF? 

WHIN  no_input ! space  => 

EXIT  modify  command; 

WEEN  ques  => 

helpf’COMMANE") ; 
fill  adminmask? 

WHEN  CTBFRS  => 

error{28);  --  incorrect  input 

END  CASE? 

INE  LOOP  modify_com.mand? 

irodify  activ :  LOOP 
putxy( 1 ,7fblank) ; 
getxy  immediate(l,7,key) ? 

CASE  key  IS 
WEEN  x  j  tab  => 

clear  field (41,7,2) ; 
getxyT41 ,7, buffer, 2); 

IF  buffer  =  null_string  TEEN 
u. ad .activ. change  :=  FALSE; 
u  .ad  .activ. ampn . change  :=  FALSE? 
putxy ( 41 ,?,u. ad .activ .activity  code) ? 

ELSE 

Open( fyle ,"TA3LE .3-6" ,Pead_Cnly ) ? 

LOOP 

IF  End  of  File(fyle)  TEEN 
CLOSE(fyle)  ; 

error(lS);  —  activity  code  not  found 
putxy  (41 , 7,  ti . ad  .ac  t i  v  .«c t ivity_code ) ; 

exit; 

ELSE 

file  buffer  :=  GET  LINE(fyle); 

END  IFT 

IF  Extract(file  buffer, 1,2)  =  buffer  TEEN 
CLOSE  ( f yl e ) ; 

u. ad  .ac tlv. change  :=  TRUE? 
putxy(4,7,star); 

u.ad.actlv.activity_code  :=  buffer? 
u. ad. change  :=  TRUE? 

EXIT? 


ENE  loop; 

ENE  IF ? 

WEEN  d  => 

IE  u. ad . activ. change  TEEN 

process_comment  (  ACTIV"  .u.ad.acti v.arrpn)  ; 
fill  adminmask; 

ELSE 

error(2?)>  —  no  set  to  arrplify 

ENE"  if; 

WEEN  no  inputispace  =>  EXIT  modify  activ; 

WHEN  ques  =>  help ( “ACTIV") ; 

viev_table(  TAEIE.B-6  ),* 
f ill'adminmask; 

WEEN  OTHERS  =>  error(28);  —input  choices 

ENE  case; 

ENE  LOOP  rrodify_act  iv; 

IE  program. unit  IN  ship ..  submarine  THEN 
modify_fredic :  LCCP 
putxy (1 , S , blank) ; 
getxy  immediate ( 1  ,S  ,key ) ; 

CASE  key  IS 
WHEN  x  |  ta  d  *> 

putxy (4., 9, star)  ; 
putxy(36,9,blank) ; 
ijutxy  (36, 10 , blank) ; 

LOOP 

IF  mark( 36, S)  THEN 

u. ad. medic. status  :*  onboard; 
u.ad./edic. change  :=  TRUE; 

exit; 

ELSIF  mark(36,lZ)  THEN 

u. ad. medic,  status  ;=  departed? 
u .ad .medi c . change  :=  TRUE; 

exit; 

ELSE 

error(16);  —  must  choose  at  least  one 
ENE  if; 

ENT  loop; 

WHEN  a  => 

IF  u. ad. medic. change  THEN 

urocess_comment (  PEEIC" fu.ad . medic. ampn) ; 
fill  adminmask? 

ELSE 

error(27);  —  no  set  to  amplify 
ENE  if; 

WEEN  no_input ! space  => 

EXIT  modify _medi c; 

WEEN  aues  => 
helpOEEIC") ; 
fill  adminmask? 
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-  input  choices 


WFIN  OTEERS  => 
error( 28 )  ; 

ENE  case; 

ENE  LOOP  modify  medic; 

ENI  if; 

modify_reporg :  LOOP 
putxy (1 ,12 , blank) ; 
getxy  immediate (1 ,12, key) ; 

CASE  key  IS 

WEEN  x !  tab  =>  .. 

putxy(62,12,  ddhhmmZI“,Mlll'yy  ); 

putxy (4, 12, star); 

putxy (12, 13, blank) » 

putxy( 21 ,13 .blank) ; 

putxy  (37, 13,  blank) ; 

putxy (54 , 13 , blank ) ; 

IOCP 

IF  trark(  12, 13  )  TEEN 

u.ad. reporg.new  reo  org  :=  cno; 

exit; 

EISIF  frark( 21,13)  THEN 

u.ad. reporg.new  rep  org  :=  clncpacflt; 

exit; 

ELSIF  rark(37,13)  THEN 

u .ad .reporg.new  rep_org  :=  cinclantflt; 
exit; 

EISIF  irark(54,13)  TEEN 

u.ad.reporg.new_rep_org  :=  cincusnaveur; 

exit; 

ELSE 

errcr(16);  —  must  select  one 
END  if; 

END  loop; 

LOOP 

getxy (62,12,u.ad.reporg.dtg,12)  ; 
verify  dtg( u. ad . repo rg.dtg .success ); 

EXIT  WHEN  success; 

cutxy (62 ,12,u .ad.reporg .dtg ) ; 

END  loop; 

u .ad . reporg .change  :=  TRUE; 

WEEN  a  => 

IF  u.ad. reporg. change  THEN 

process_comment( "REPORG” ,u .ad . reporg. ampn) 
fill  adminmask; 

ELSE 

error(27);  —  no  set  to  modify 

ENE  IE; 

WHEN  no_lnput i space  =0 
EXIT  modify_reporg; 

WHEN  aues  *> 


help('*REPORG" ) » 
fill  adirimrask; 

WEEN  CfEIRS  => 

error(28);  --  Input  choices 

INC  case; 

ENI  LOOP  irodlfy_reporg; 

modi  fy.verif  y :  LOOP 
putxy(l ,15, blank) ; 
getxy  imrediate(l,l£,key) ; 

CASE  key  IS 
VEIN  x!  tab  O 

putxy (4 ,15 , star  5» 
putxy (36,15 , blank ) ; 
putxy (36 .16 , blank ) ; 

LOO? 

IE  irark  (36 , 15  )  TEEN 

u. ad. verify .  f eedback_ver  :=  valid; 
u .ad .verify .change  :=  TRUE; 

exit; 

ELSIE  mark(36,16)  THEN 

u.ad .verify .feedbackver  :=  corrected; 
u.ad. verify. change  :=  TRUE; 

exit; 

ELSE 

error(ie);  —  trust  select  one 
inl  if; 

ENI  loop; 

WEZN  a  => 

IE  u.ad. verify. change  THEN 

process_cotnrent  ( ’  VERIFY"  ,u. ad .  verify,  airpn) 
fill  adirimrask; 

ELSE 

error(27);  —  no  set  to  arrplify 

END  if; 

WEEN  no_input i space  *> 

EXIT  Modify  verify? 

VEEN  ques  => 
help ( "VERIFY"  )  J 
fill  adirimrask; 

WEEN  OTHERS  => 

error(28);  —  input  choices 

END  case; 

ENE  LOOP  irodify_verify; 
putxy (0,20, blankln) ; 

putxy(0,20,"<ENTER>  to  Continue,  Enter  «'X>  to  "  & 
"Reselect : ")  ; 
reselect  irark(44,23) ; 

EXIT  modify_admin  WHEN  NOT  reselect; 

NI  LOOP  irodify_adrrin; 


ELS  I F  action_is(draf t)  OR  actionl s(print  ) 

OR  act icnis ( vsrify)  TFIN 

printer_on; 

II  action_is (draft )  TEEN 
MW  FAGS; 

INI  if; 

II  reaulred_prlnt  (u .ad.  comrrand  .change  )  THIN 
put_printir  ("COMMANE/"  &  u  .ad  .corrrrand  .oocic  & 

"/"  &  u.  ad  .coirirand  .d  tg  i  '*//"); 

IF  u  .ad  .coirjrand  .ampn  .  change  THIN 
print_con,irent  (”  COMMAND" )  » 

END  if; 

II  action  is(draft)  THEN 
draft  aid  f  CCf-TANE"  ).* 

INE  if; 

ENE  if; 

II  required_print  (u. ad  .activ  .change  )  TEI\: 

put  printer ("ACTIV/ "  fc.  u. ad. activ. activity  code 

&  /  /  ) ; 

IF  u. ad  .activ. arnjn.  change  THIN 
print  _cotntnent  (  "ACTI V"  1 ; 

ENE  if; 

IF  action_is (draft)  THIN 

Open( fyle ."TABLE .B-e” .Read  Only  ); 
buffer  :*  GFT_LINS(fyle) ; 

WEILE  u. ad .activ. act ivity_code  /- 

Extract(ouf f»r,l  ,2'  LCC? 
buffer  :=  GET  LINK  fyle)  ; 

ENE  loop; 

CLCSE (fyle) ; 

put_printer(null_string); 
put_prlnter(  buffer)  ; 
put_print er (null  string); 
draft  aid ( "ACTI V" ) ; 

END  if; " 

INI  if; 

II  required_print ( u. a d. medic. change ' 

AND  prograir  .uni  t  *  ship  THEN 
IF  u. ad  .rredlc. status  =  onboard  THEN 
buffer  :=  "ONBCARr" J 
E  LS  E 

buffer  :=  "DEPARTED”; 

ENT  if; 

Fut_printer( "f^EDIC/”  S.  buffer  &  "//"); 

IF  u. ad. iredic.airpn. change  TFIN 
urint  coirirentC  ("EIIC”); 

END  if;- 

IF  action  is(draft)  THIN 


draft  aid(>EDIC  ) ; 

END  if;" 

ENI  if; 

IF  required_print (u .ad . reporg. change)  TEEN 
CASE  u.ad7reporg.new_repworgf IS 
WEEN  cao  =>  buffer  :=  ~CNC"; 

WHEN  cirtcpacf  It  =>  buffer  :=  "C INCPACELT"; 

WEIN  cinclant f 1 1  =>  buffer  :=  "CINCIANTFLT" i 
WHEN  cincusnaveur  =>  buffer  :=  "CINCUSNAVEUR”; 
END  case; 

put_printer ("REPORG/”  &  buffer  &  "/  S. 

u.ad. reporg. a tg  &  "//”}; 

IE  u. ad  .reporg. arrpn  .charge  TEEN 
print  cotrrrent  ("REPORG  )  ; 

ENE  if;- 

IF  action  is(draft)  TEEN 
draft  aid  ("REPORG" )  > 

ENT  if; 

ENE  if; 

II  required_print(u. ad. verify .change)  TFEN 
IF  u .ad .verify . feedback_ver  =  valid  TEEN 
buffer  :=  "VALID”; 

E1SF 

buffer  :=  "CORRECTED"; 

END  if; 

put_pri a ter ( "VERIFY/”  &  buffer  &  ”//"); 

IF  u.  ad  .verify. arrpn .  change  TEEN 
print  comrent  ( "VERIFY" ) ; 

END  if;' 

IF  action  is(draft)  THEN 
draft  aldC VERIFY")  ; 

END  if; 
ini  if; 
prlnter_of f ; 


ELSIF  action  ls(log)  THEN 
EELETE(' COMMAND. AMP")  ; 
DELETE  ( "ACTIV  .AN’p"  )  i 
IELETE(  VEriC.AN'P" )  I 
DELETE  ( "REPORG.  Af-P’); 
EEIETE("VERIFY.APP"  ); 


ELSE  null; 

END  if; 

—  return  the  altered  adminset 
END  process_adrrinistrat ive; 

END  uradirin; 


PACKAGE  urair  IS 

—  This  package  provides  access  to  the  AIR  process 
—  for  UNITREP  construction 


PPOCirim  process_air; 

—  main  air  subprogram  for  actions  other  than 

—  modify  (which  is  in  urolrl/2/3  of  unitrep3) 


ENI  urairi 


JANUS/ADA  Library 


\»ITE  strlib.io, 
printio , 
urgltl , 
urglobal, 
unitrepB.urairB; 

FACIAGE  ICIY  urair  IS 
USE  printio, 
urgltl , 
urglotal , 
unitrepB.urairB; 

—  Provides  processing  of  UNIT?!?  dir  situations 

—  for  all  actions  with  the  exception  of  modify 
--  lata  sets  AIRAUTE ,  CREfcAUTF ,  AIRSTAT,  CREWSTAT, 
—  RECCN  and  corresponding  DELETES  are  supported  oy 

—  tirair(x) 

twoP.del.auth :  STRING; 
tlg_string:  STRING(14£); 

PROCEDURE  zero_location(i ,J :  IN  INTEGER)  IS 

—  zeros  all  status  information  for  a  particular 

—  aircraft  type(i)  and  location^) 

BEGIN 

—  zero  location  set  (i,J) 
u.ar.ac_type( 1) .location( j) .change  :=  FALSE; 
u.ar.ac  tyoe ( i ). location ( j )  .dele te  :=  FALSE; 

IF  j  *  I  TEEN 

—  present  position 
u.ar.ac  type(i ). location ( j ) .iss  := 

ELSE 

u.ar.ac  tyoe ( i ) . locat ion ( j ) . iss  :=  null_string; 

INI  if; 

u.ar.ac_type(i) .location( j) .airstat .change  :=  FALSE; 
u .ar .ac_type( i ). locat ion ( j ) .ai rstat .d elete  :=  FALSE; 
u. ar. ac~type( i ). location( j ).airs tat .possessed  :=  two£ 
u .ar  .ac~type ( i ). locat ion («) .ai rstat .fmc  :=  two0; 
u.ar.ac~type(i)  .location^  )  .airstat  .pmc  :=  twe0; 
u. ar ,ac~type( i ). locat ion ( j ) .ai rstat . nmc  :=  two0> 
u  .ar  .ac~type(  i  ).location(j)  .airstat.ampn.  change 

:=  FALSE 

u.  ar.ac_type(  i  ).location(j).airstat.ampn. 

numter_of_lines  :*  2 
u. ar. ac_type( 1 ) .location (J )  .crevstat  .change  :=  FALSE; 
u.ar .ac”type( i ). locat ion( j ). crewstat  .dele te  :=  FALSE; 
u.ar.ac~type(i ) .location( j) .crewstat .formed  :=  tvo0> 
u. ar .ac~type( i ). locat io n ( j ). crews  tat . ready  :=  two0; 
u.ar.ac_type(i).location(J).crewstdt . ampn .change 


0? 


u.  ar.cic_type(  i)  .location (j)  .crewstat  .ampn . 

number_o f_lines  :  = 

u .  ar  .ac_type(  i  ). local io:i(  J  )  .recon  .change  :=  FALSE; 
u.ar .ac~type{ i ). locdt io i ( J )  .recon .delete  :=  FALSI; 
u. ar. ac~type( i ). locatio  a( j ). recon. 

nrmber_of _capabil Hies  :=  0? 
u .  ar  .ac_tyoe  (  i).locdtion(j)  .recon  .air  pn.  change 

:=  false; 

u .  ar.ac_type  (i).locatlon(J).recon.ampn. 

nurrter  of  lines  :=  Z? 


FOB  z  IN  1 . .mam _recon  LCCP 

u  .ar  .ac_type(  i )  ..iocat  ion (  i )  .  recon  .capa oil l  ty  (  z  ) 

:=  n'ill_striag ; 


ENE  iccp; 

END  zero  location; 


PROCEDURE  zero_ac_type( i :  IN  INTEGER)  IS 

—  zeros  the  status  information  for  a  particular 
--  aircraft  type 

BEGIN 

--  zero  cut  ell  items 
u. ar.ac_type( i ). change  :=  FALSE? 
u  .ar .ac_type( i ) .delete  :=  FALSE; 
u.ar.ac”type( i ) .iss  :=  null. string; 
u. ar. ac_type( i ). ac_auth. change  :  =  FALSE? 
u.ar.ac_type(i) .ac_auth. delete  :=  FALSE; 
u. ar .ac_type ( i ) .ac~auth . i ss  :=  twoZ? 
u.ar .ac'typef  i)  .ac_auth. arrpn. change  :=  FAISEJ 
u . ar . ac"type( i ) .ac’auth .ampn . nrmber_of_lines  :=  0} 
u.ar.ac~type(i ) .crews_auth. change  :=  FALSE? 
u. ar. ac_type( 1 ). crevs_auth . delete  :=  FALSE? 
u.ar .ac~type( 1 ) .crevs’auth.iss  :=  twoZ; 
u.ar .ac_type{ i ) .crevs_auth .ampn .change  :=  FALSE; 
u.ar.ac”type( i) .crews'auth. ampn. number .of.  lines  :  =  0; 
u. ar. ac_type( i ) . number_of _locations  :  =  i;  — bore  plate 
FOR  J  IN  1 . .max^locations'LOOP 
zero  locdtionTi , j  ) » 

ENE  LOOP? 

END  zero_ac_type ; 


PROCEDURE  process_air  IS 

USE  strlib? —  Int  to  Str, Extract ,Fosit ion .Length 
USE  io?  —  Open, CLOSE, DELETE, 5ET_LINE 

—  main  modification  algorithm  for  air  data 

FUNCTION  print_vith_del et e( deleted  :  BOOLEAN' 


RETURN  BOOLEAN  IS 

—  used  to  determine  if  a  deleted  set  is  to  be 

—  printed  during  message  preparation  and  dra*t 

—  document  printing 

BEGIN 

II  (action  is(print)  AND  deleted) 

OR 

( action_is(draf t ) 

AND  NOT  program .mes sage  transmitted 
AND  deleted)  THEN 
RETURN  TRUE? 

ELSE 

RETURN  FALSE? 

ini  if; 

END  print_with_delete; 

FUNCTION  print  wo  delete( changed .deleted :  BOOLEAN) 

RETURN  BOOLEAN  IS 

—  used  to  determine  if  a  set  is  to  be  printed 

—  with  or  without  a  delete  dvring  prints. 

—  verification  and  drafts 

BEGIN 

IF  (action  is(print)  AND  changed ; 

CR  ' 

(action_ls  (verify)  ANT  NOT  deleted) 

"  OR 

(action_is (draft )  ANE  (NOT  deleted})  TEEN 
RETURN  TRUE? 

EISE 

RETURN  FALSE; 

eni  if; 

END  print_wo_delete; 


BEGIN 

IF  action  is(neww)  TEEN 
LOOP 

success  :=  TRUE; 
u.ar. change  :=  FALSI; 

FOR  i  IN  1 .  .u  .ar . number  of _ac_types  LOOP 
u.ar.ac_type(i) .change  :=  FAISET 
IF  u .arTac_type ( 1  ). delete  THEN 
FOR  z  IN  1 .  .max_ac_ types-1  LOOP 

u.ar.ac  type(z)  :=  u.ar.ac  type(z+l); 

END  loop; 

IF  u.ar.number_of_ac_types  >  0  THEN 
u  .ar .number_o f_ac_ty?es  :  = 

u.ar. number  of  ac  types-i; 


FNE  if; 

zero_ac_type(rrax_ac_types )  » 
succiss~:=  FALSE T 
FNE  if; 

u. ar. ac_type( i ). ac_auth. change  :=  FALSE; 
u.ar.ac_type(  i)  .ac'auth  .arrpn  .change  :=  FALSE; 

IF  u.ar.ac_type(i ) .ac_auth. delete  TFEN 
u.ar. ac_type(i ) .ac_Iuth .delete  :=  FALSE; 
u.ar.ac"type(l) .dc'auth. iss  :  =  twc0J 
FNL  if;" 

u . ar. ac_type( 1 ). crews _auth . change  :=  FALSE; 
u .  ar.ac~type(  i  )  .crevs'auth  .arrpn  .charge  :=  FALSE 
IF  u.ar .ac_type (i ). crews_auth .delete  TEEN 
u.ar .ac_type( 1 ) .crevs_auth  .delete  :=  FALSE; 
u.ar.ac_type(i) .crews'auth.iss  :=  twc0; 

INC  if; 

FC?  j  IN  1.. u.ar.ac  type ( i ). number  of  locations 

LOO 

u. ar. ac_type( i) .1 ocati on ( j) .change  :=  FALSE; 
IF  u .ar .ac_type (i ) .location (j  )  .delete  TEEN 
u.ar.ac_type(l) .location (J  '  .aelete  :=  FALSE 
FCP.  z  IN  J.  .rrax_locdti ons-1  LOOP 
u.ar .ac_type( i ) .location( z)  := 

u.ar. ac  type (1). location  >  z*l' 

FNE  loop; 

IF  u.ar.ac_type(  i  ) .  number  of  locations  >  1 

TEE 

u.ar.ac_type(  i  )  .number_of _locat ions  :  = 
u.ar.ac  type( i ) .  nurrhir  of  locations  -  i 
END  if; 

zero_location(i  ,max_lccdticcs ) ; 
success  :=  FALSE; 

ENE  if; 

u.ar.ac_type( i) .location ( J ) .dirs tat .change 

:=  FALSE 

n .ar.ac_type( i) . location ( J ) . airs tat  .amps  . 

change  :=  FALSE 

IF  u.ar.ac  tyue(i ) ,location(j ) .airs tat .delete 

TEE 

u.ar.ac  type(i) . loca tioa ( j ) . a irstat . delete 

:=  FALSE 

u  .ar  .ac_type( i ) .location ( j ) .airst dt . 

possessed  :  =  tvo0 

u.ar.ac_type(  i)  . location ( j) . alrst at .  fxc 

:=  twc0 

u.ar.ac_type( i) .locationf j ) .alrstat .pmc 

:=  tv c0 

u  .ar.ac_type(  i)  .lccation(,J).dirstat.nmc 

:  *  tw  o0 

ent  if; 

u .a  r .ac_type( i) .location (j). crews ta t . change 


u.ar.ac_type(i).location(j).crevstat.airpn. 

change  :=  FALSE; 

IF  u.ar.ac_type(i).location(j).crewstat. 

delete  THEN 

u.ar.ac  type( 1) .location(j) .crews  tat . delete 

:=  false; 

u.  ar.ac_type(  i).location(j)  .crevstat .  forrred 

:=  tvc0; 

u.ar.ac_type(l).locatlon(j).crevstat. ready 

:=  tvo(Z; 

I  NT  if; 

u.ar.ac_type( i).location(J) . recon . change 

:=  false; 

u.ar.ac  type(  i)  .  locat ion( J )  .recon  .arrun  . change 

:=  false; 


IF  u.ar.ac  tvoe ( 1 ) . locat Ion ( 1 ). recon . delete 

“  '  TEEN 


u.ar.ac  type( i) . location ( J )  .recon  .delete 

:=  false; 

FCH  z  IN  1 .  .rraz. recon  LOOP 
u. ar .ac_type( i ) .loca  t Ion ( j  ) . 

recon. capablllty( 2 )  :=  null  string; 

FNE  LCCP; 

ENr  if; 

ENE  LOOP?  —  location 

EM  loop;  —  tyoes 

EXIT  WEEN  success? 

ENE  LCCPJ 


ELSIE  action_ls  (rrcdify)  TFZN 

NULL?  —  process_ac_type  in  UNITRSF3.C0* 


ELSIF  actlon_is (print )  OH  action_is(araf t )  OR 

action  is (verify'  TEEN 


printer_on; 


FOH  i  IN  1. .u.ar. number  of  ac  types  LOOP 
IE  action_is (draft )  TffEN~NEW_PAGE ;  ENT  IF; 

—  airauth  sets 

buffer  :=  ’’AIRAUTH/"  &  v  .a r. ac_type  ( i  ' .  l ss  & 

auth  &  u.ar.ac_type(i )"ac_auth. iss  &  ”//"» 
IF  print_vith_del et e( 

“u .a r. ac_type ( i ) ,ac_auth. delete)  TEEN 
put_print er (del  &  buffer); 

ELSIF  print_wo_delete( 

u.ar.ac  ty?e(i).ac  auth. change. 


u  .dr  .ac_type  ( i  )  ,ac_auth  .delete)  THIN 
put_prlnter( buffer) » 

IP  u  .  ar .  ac_type  (i  ).  ac_auth  .arrpn  .change  TEEN 
print  cofnrent  ("AIRATH"  &  Int_to_S  tr  { i  ) ) ; 

ENE  if;- 
END  if; 

--  crevauth  set 

buffer  :=  "CRIVkAUTE/"  &  u  .ar  .ac_type  (  i ) .  iss  &<tauth 
&  u.ar.ac_type(i ) .crews_auth. iss  &  "//"; 
IP  print_with_del ete(u.ar.ac_type(i). 

c rews_auth .delete )  TEEN 
put_printer(del  &  buffer); 

ELSIF  print_wo_delete( 

u.ar.ac_ty?ed) .c revs _auth .change, 
u.ar.ac”type(i) . c re vs ~auth. delete)  TEEN 
put_printer( buffer ) ; 

IF  u.ar .ac_type(i  )  ,crews_auth. arrpn. change  THEN 
print_ccmrent ("CREATE"  &  Int_to  Str  (i) ) » 

ENI  IP? 

END  if; 

IP  action  is(draft)  TFEN 

draft  aid ("AIR  AUTHORIZATIONS”  ) ; 

END  if; 

—  by  location 

PCR  j  IN  l..u.ar.ac  tyoe( i ) . nunber  of  locations 

LCOF 

—  airstat  set 

bpffer  :=  "AIRSTAT/"  &  u  .ar .ac_type (i ) .iss  & 
/PCSS:"  & 

u. ar.ac_type( i ). location '  j ) .airstat.possessed  & 
"/"  &  u  .ar  .ac_type ( i  ) .  1  ocation  ( J )  .  is s  &  "/F!*C:” 
&  u.ar.ac_typi(i  )  .location(j)  .airstat  .frrc  & 
"/PPC : " 

&  u.ar.ac  type ( i ). locat ion ( J ). airs ta t .pmc  & 

IF  print_vith_del ete( 

u.ar.ac  type(i).locaticn(j) .airstat. delete) 

TEEN 

put  _printer  (d  el  6.  buffer); 

ELSIF  prlnt_wo_delete ( 

u .ar .ac_ type (i ) . locat ion( J ) .airs  tat . change , 
u.ar.ac  typed  ).  locat  ion  ( j  )  .a  irs  tat  .delete  ) 

TEEN 

put_printer( buffer) ; 

IF  u .ar .ac_ type (i ). location ( J ) . 

airstat .anpn. change  TEEN 
print_coinrent  ("AIRSTA"  5.  Int  to  Str(i)  6. 

Int  to  Str(j'T; 

ini  if; 

ENE  if; 


—  crewstat  set 

buffer  :=  "  CREWSTAT/’’  &  u.ar.ac  type(i).iss  & 
/FORM:  &  ' 

u.ar.ac_type(i).location(j)  .crews  tat  .  forrei  5, 
V”  £.  u.ar.ac_type(  i) .  location(  j  ) .  iss  & 

/READY :  & 

u.ar.ac  type  ( i  ).  locati  on  (  j )  .crewstat .  ready  6, 
”//”; 

IF  print_with_delete( 

u.ar.ac_type(i ).location(j) .crewstat. delete) 

TEEN 

put_prir.ter(del  6,  buffer); 

ILSIF  print_wo_delete( 

u.ar.ac_type(i ) .location(j) .crewstat .eta  age , 
u.ar.ac  ty pe (i). lo ca tic n ( J ) . cr aw stat. delete) 

THEN 

put_printer (buffer) ; 

IF  u.ar. ac_type (i  ) . location ( J) . 

crewstat .arpn. change  TEEN 
prlnt_corrrent  (’’CRWSTA”  &  Int_to  Str(i)  & 

I nt  to  S t r { J  )  )7 
END  if;  ' 

ENT  if; 

— t recon  set 

big_string  :=  ’’RECON/"  &  u .ar  .ac_  type  (i  )  .i sst&rt 
/  &  u. ar. ac_tyue( 1 ) . loca t ion ( j ) .  iss  &  “/”; 

IF  prlnt_with_deiete( 

u.ar.ac_typi( i ) .1 ccati on ( j ) .reccn  .delete 
AM  NOT 

u.a  r-.ac  type(  i)  .location  (  J  )  .airstat. delete) 

TEEN 

put.  printer  (del  &  tig_string  &  "/"); 

ELSIF  prirt_wo  delete^ 

u.ar.ac_,typeTi)  .locat ion (  J  )  .recon  .change, 
u.ar.ac_type( i )  .location(j) . recon .d elete )  TEEN 
FOR  k  IN  1..  u .ar  .ac_type( i ). location ( j  1 . 

recon . nuirter_of _capa  bilities  LOOP 
big_string  :=  big_strini  & 

u.ar.ac_type(i)  .locatior.(  j)  . 

recon. capability(k)  &  ”/”; 

END  loop; 

blg_string  :=  big_string  &  "/"; 

IF  Iength(big  string)  >  69  TEEN 
FOR  z  IN  REVERSE  1..69  LCOP 
IF  blg_st ring ( z  )  =  '/'  TEEN 
numbir  :=  z; 

exit; 
end  if; 
ent  loop; 

P’Jt_prir.ter( Extract (  big_st ring ,1 , nur ber-1 ) ) ; 
put_printer(  Extract (big_string,nurber, 
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Lengt h( blg_string ) )  ); 

ELSE 

put  printer(big  string); 

ENE  if; 

ENE  if; 

IF  action_is (draft )  TEEN 
put_printer(nuli_string) ; 
rut  printer( 

******  Recon  Capability  Definitions  ******"); 
FOR  2  IN  1 . .u.ar. ac_type(i ) .location (j ) . 

recon. rubber  of  capabilities  LOOP 
Open (fyle, "TABLE. B-3", Read  Only); 

ICC? 

buffer  :=  GST.LINF (f yle ) ; 

IF  u.ar  .dc_ type ( i )  .location^}. 

recon. capa bility (2)  = 
Extract(bnffer,l,Posltion(":”,bu?fer)-l) 

TEEN 

put_prlnterC  buffer) ; 

CLOSE(fyle) J 

exit; 

ELSIF  ENE  OF  FILE(fyle)  THEN 
CLOSE ( fyleT ; 

exit; 

ENE  if; 

ENE  loop; 
ene  loop; 

ENE  if; 

IF  u.ar.ac  type(  i  ).  lo  cat  ion  ( ,) ).  recon .  arnpn  .  change 

TEEN 

print_corrrrent  (  "RICCn”  &  Int  to_Str(i)  & 

I  n  t  1 0  S  t  r  (  J  )  T ; 

ENT  if; 

IF  action_is,(draf  t )  THEN 
draft  aid (  AIR  STATUS"); 

ENE  IF ; ~ 

ENE  LOOP;  —  locations 

ENE  LOOP;  —  ac_types 

IF  action  is(draft)  TEEN 

new_page; 

draft  aid  ("AT?  -  NE'*"); 

ENE  if;" 


Frir.ter  off; 


ELSIF  action_is  (leg )  TEEN 

— "clean  up  amplification  files 
FC5  i  IN  1..  max_ac_types  LOOP 
buffer  :=  let  to_Str(i)  &  '’.AVP"; 

EELETE  ( "A  IRATE,"  &  buffer); 

IELETE(  CRWATE  &  buffer); 

FOR  j  IN  1 .  .max_locatior.s  LOOP 

buffer  :=  Int_to  Str(i)  &  Int_to_Str  (  S'  & 
".AFP "I 

BELETEC’AIRSTA"  &  buffer); 

EEIETE ( "CRWST^"  &  buffer); 

TELETE (  RECON  ’  &  buffer); 

END  loop; 
eni  lcc?; 


ELSE 

ndii; 

ENI  if; 

ENt  process_air; 

begin  ,  .. 

tvo0  :=  00  ; 

del  :=  "EELETE/"; 
auth  :*  ’7AOTE:”; 
ENI  urairj 


WITH  io, strlit, 
consio, 
urglobal , 
unitrepE , 
urairB, 
urair2, 
urair3>* 

PACKAGE  3CIY  urairl 
USE  io, 

strlit, 
consio , 
urglobal , 
unitrepE , 
urairB, 
urair2, 
urair3» 

—  provides  for  modif ication  of  AIR  data  for 
—  UNITREP  construction 

PROCEEURI  process_ac_type  IS 

—  Initial  interface  to  the  irodif icat ion  of  air 

—  information.  The  aircraft  type  is  selected, 

—  then  aircraft  type  location  is  selected, 

—  (procedure  process_l ocati on  -  urair2) 

—  then  aircraft  type  at  selected  location  status 

—  information  is  presented  for  irodif  icat  ion 

—  (procedure  process_status  -  urair3) 

—  Eirectly  supports  AIRAUTE  and  CP.ZWAUTH  data  sets 

—  and  EELETE  for  each. 

index:  INTEGER; 

check  location:  BOOLEAN; 

BEGIN- 

authorl zatlon_page :  LCOP 
f ill_auth_mask; 

II  u7ar.number_of_ac_types  >=  irax_ac_types  TEEN 
index  :=  Tax-ac_types ; 

ELSE 

index  :*  u.ar. number  of  ac_types+l* 

ini  if; 

ICS  i  IN  1.. index  LOOP 

IF  u.ar  .ac_type  ( i  ) .  iss  /=  null_string  TEEN 
putxy (5 ,slo+i .blank) ; 
getxy  immediate(£  .slo-'-i  ,key ) ; 

CASE  key  IS 

WHEN  no  input {space  => 

null;" 

WHEN  x ! tab  => 

process  auth(i, check  location); 


IS 

--  Open ,CLCSE ,GET_LINE 


IF  check_loca tlon  THIN 
process_location( i ) ; 
fill  auth  mask; 

ENE  IF? 

WHEN  c  =>  —  change  name  only  for  misspelling 
c lea r_field(ie, slo+i ,?)? 
getxy_immediate(ie , slo+i ,key) ; 

IE  key  /-  no  input  ANE  key  /-  space  THEN 
getxy (17, slo  +  i , buffer, 6) ; 
buffer  :=  Char_to_Str (key )  6.  buffer; 

— ve£if y”ac~type 

Open(fyle,  TABLE. 9-2  ,P.ead  Only); 

LOOP 

file  buffer  :=  GIT  LlNE(fyle); 

IF  buffer  =  file  buffer  THEN 
CLCSE(fyle); 

u.ar .ac_type(i )  .iss  :=  buffer; 
process^authd  ,check_ location  )  ; 

IF  checic_l ccati on  THIN 
prccess_location(i); 
fill  auth  mask? 

ENE  II; 

exit; 

END  if; 

IF  END  Of  FILS(fyle)  THEN 
CLOSE(fyle); 

error(23);  —  type  not  in  table  b-2 
EXIT; 

END  if; 

ENE  loop; 

ELSE 

error(42);  —  invalid  ac  type 

putxy (16, slo+i , u.ar. ac  type! i  ).  iss ) ; 

ENE  if; 

WEEN  ques  => 

helpC'AlR  ACCESS”!; 
view_table( ’’TABLE. E-2"  )  ; 
fill  auth  mask; 

WEEN  0?HERS”=> 

error(6);  — incorrect  incut 

END  case; 

ELSE  —  new  ac  type 

getxy_immediate(ie, slo+i  ,key ); 

IF  key  /=  no_input  ANE  key  /=  space  TEEN 
getxy( 17, s Io*i, buffer  ,6); 
buffer  :=  Char_to_Str( key)  &  buffer; 

— verify  ac  type 

0pen(fyle. "TABLE. 3-2”73ead  Only);  . 

LOOP 

file_buffer  :=  GIT_LIM (fyle) ; 

II  buffer  =  file  buffer  TEEN 


CL0S2( fyl e) ; 

u.ar.ac_type(i)  .iss  :=  buffer; 
u  .ar  .nurr,ber_of_ac_types  :  = 

u  .ar  .nuirber_of_ac_types  + 
process_auth( i  ,  checlc_loca tlon  ); 

IF  checic_location  THEN 
process_l ocdtlon(i ) ; 
fill  auth  rrask» 

END  IE; 

exit; 

END  IT; 

IF  END  OF_FIL£(fyle)  TEEN 
CICSF(fyle)  ; 

error(33);  —  type  not  in  table  b-2 

exit; 
ent  if; 
end  loop; 
end  if; 

ENr  if; 

END  LOCP;  —  for 

tldnK_inst_area; 

putxy(  Z  ,17,"<ENTZR>  to  Continue,  Enter  <X>  to 
"Reselect:  " ); 
reselect  trark(44,l7) ; 

EXIT  authori  za  t  ion^page  '*HFN  NOT  reselect; 

ENI  LOOP  authcriZation^pdge; 

ENT  process_ac_type»* 


6. 


PACKAGE  urair2  IS 


—  Interface  to  air  authorizations  and  location 
—  information 

PBOCIECH2  fill_<iuth_iraslc» 

FROCEEURE  process_auth(i :  IN’  INTEGER; 

check_location:  OUT  2CCLZAN); 

FROCEEURE  process_location(  i:  IN  INTEGER;; 

ENE  urair2; 
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— JANUS/ATA  library 


%ITE  strlib, 
consio , 
unit  rep3 , 
u-rairB , 
urutil , 
urglbl , 
urglobal , 
urair3; 

PACKAGE  3CIT  urair2  IS 

USE  strlib,  —  Extract 

consio , 
unitrep3 , 
urairB, 
urutil , 
urglbl , 
urglobal , 
urair2» 

PR0CEEUPE  process  location(  i:  IN  INTEGER)  IS 

USE  strlib; 

—  entry  point  to  modify  status  information  at  a 

—  particular  location 

PROCirUHE  locatlon_mask  IS 
USE  strlib;  — Extract 

BEGIN 

border? 

putxy (0,1 , "air  -  locations"); 

putxy( 27,3,/ Aircraft  Type"); 

putxy (8 ,5  ,  ’ACCESS"  ) ;  pu txy( 40 , 5 , "Lcca  t ion"  ) ; 

EOR  z  IN  1 .  .rrax_locatior.s  LOCP 
putxy (9 ,slo+z , "  (  )"); 
putxy(32,slo+z ,Extract(dashln,l,30)); 

ENI  loop; 

putxy (0,13, dashln); 

putxy( 12 ,15 , "<X>  at  ACCESS  (  )  next  to  desired  ”  & 
^Location"); 

putxy(  16, 16,"  (automatic  entryinto  first  empty  "  & 
"location  for  NEW”); 

putxy ( 12, 17 , ”<C>  to  change  a  location  name  —  ”  & 
"MISSPELLING  CNLY"  ) ; 

putxy (12,18, "<?>  for  HELP”); 

putxy(12,20,"<.ENTER>  for  next  (  )"); 

ENI  location_mask; 

PROCEEURE  fill  location  mask  IS 
BEGIN 

locatl  cn_rrask; 

putxy (42 ,3 ,u .ar ,ac_type (i )  .1 ss) ; 

ICR  z  In  1..  u.ar.ac_type(l ) .aumter_of_lo cati ons 
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LOOP 

putxy(32,slo+z ,u.ar .ac_type( i )  .location (z) .iss) ? 
ENE  LCCP? 

putxy(32 , slo+1 , "HOME  PLATE")? 

ENE  fill_locdtion_mask» 

index:  INTEGER? 

BEGIN 

locatior._page :  LOOF 
f  ill_locat  ion_rrask? 

IE  u7ar  .ac  .  type(  i  ) .  nurrber,  of  _locat  ions  >= 

max_iocatior.s  TEEN 

index  :=  irax_locations? 

ELSE 

index  :=  u.ar .ac_type(i  )  .nurrber_of_lcca  tions^l? 

ENE  IF? 

ECU  j  IN  1.. index  LOOP 

IF  u.dr .dc_type (i ) . locdtion ( j  )  .iss  /  = 

null_string  TEEN 

getxy_itr?rediate(10,  slo  +  j  ,key  )  ? 

CASE  Key  IS 

WHEN  no  incut 'space  => 

NULL?- 

WEEN  x ! tab  => 

process_status(  i ,  j)  ? 
fill  location  mask? 

WEEN  c"=> 

IF  j  /=  1  THEN 

getxy_irnrediate(32  ,sio  + j ,  xey ) ? 

IF  Key  /=  no_input  ANE  Key  /  =  space  TEEN 
clear_field(32,slo+j  ,30  )? 
putxy(32,  slo+j  ,Char_to_Str(  key) )  ? 
getxy (33, si 0+j, buffer, 2S) ? 
buffer  :=  Char_to_Str(  key )  buffer? 
u .a: .ac_type( i).locatlon(i).iss 

:=  buffer; 

process_status(i  ,  j  )  ? 
fill  location  rrask? 

ELSE 

error(3€)?  —  invalid  location  change 
putxy(32,slo+J, 

u.ar.ac  tyce(l) . location ( j ). 1 ss ) ? 

ENE  IF? 

ELSE 

error (37) ; 

—  cannot  change  hcireplate  location 

FNE  IF? 

WEEN  oues  => 

help( "LOCATION"  )  ? 
fill  location  Task? 

WHEN  OTHERS  => 


--incorrect  input 


error (6 ) » 

END  case; 

5ISE  —  new  location 

getxy_irrjredia te (32,  slo+j  , key ); 

IF  key  =  no  input  OR  key  =  space  THEN 

exit; 

ELSE 

get xy ( 33, s lo  +  j, buffer,  29 ) ; 
buffer  :=  Char_to_Str(key)  &  buffer; 
u .ar. ac_type( i7 . location ( j ). i ss  :=  Duffer; 
u .ar.ac_type(  i)  .nurrber_of_locations  :  = 

u.ar.ac_type(  i) .  nuirber_of_lccations  +  l; 
process_status( i ,  j  ) ; 
fill  location  rrask; 

ENI  if; 

END  if; 

EM  lccp; 


tlar.k_inst_area ; 

putxy (0,17,"<ENTER>  tg  Continue,  ENTER  <X>  to  "  & 
' Reselect :  ’ ) ; 
reselect  :=  rrark(44,l?) ; 

EXIT  WHEN  NOT  reselect; 

EM  ICOP  locat ion_page; 

ENI  process_locationj 


PROCEDURE  auth  irask  IS 
HEGIN 
border; 

putxy  (0 , 1 , "  AIR  -  AUTHORIZATIONS'’ ); 

putxy (16 ,4, [Aircraft  .Aircraft  Crews”  6. 

Deployed"); 

putxy  (3, 5,  ."ACCESS  Type  ..Authorized"  & 

Authorized  Locations"); 

FOR  i  IN  1.  .rr>ax_ac_types  LCCP 

putxy(  4,  slo+i  A"  (~)  -  (  )“  & 

(  )  —  (  )  --"); 

eni  loop; 

putxy (0 ,13 ,dashln ) ; 

putxy  (0,14,  "<C>  to  CHANGE,  <D>  to  DELETE,  <R>  to  "  S. 

"RESTORE,  <A>  to  AMPLIFY,  <?>  for  EELP"); 
putxy(22,15*”***  <X>  for  Access  ***"); 

putxy (0,16,  At  ACCESS  (  ) . <X>  <?>  ,  ”  & 

,."<C>  to  change  Type  (MISSPELLED  ONLY)"); 
putxy (0 ,17, "At  an  Authorization  (  ) _ <C>  <D>  <R>"  & 

".  <a>  <?>"); 

putxy  (0 ,18,  "At  a  Location  (  ) . <X>  to  view  "  & 

"the  Locations  of  the  type  aircaft"); 
putxy (22,20, "<FNTER>  for  next  (  )"); 
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INC  auth  mask; 


FROCirUFZ  fill  auth  mask  IS 
BEGIN 

auth_mask» 

FOB  I  IN  1.  .u.ar.auirtier_of_ac  types  LOOP 
putxyf l€.slo+i,u.ar.ac_type7i ) .iss ) ; 

II  u .ar.ac_type(i ) .delete  THEN 
putxy (8 ,slo+i , d_mark) ; 

INI  if; 


II  u.ar.ac.  typed  )  »ac_auth. change  THEN 
putxy (36 ,slo+i .star  ); 

II  u.ar  .ac_  typed  )  .ac_auth  .arrpn  .change  THEN 
putxy  (38*,  slo  +  i  ,  a  mark); 

ENT  if; 

ENE  if; 

II  u.ar.ac_type(i ) .ac_auth. delete  TEEN 
putxy (3e7slc  >i ,d_mark  ) ; 

ENE  if; 

pu txy (40, slo+i, u.dr.ac_type(i).ac_duth. iss); 


II  u.ar.ac_ty?e(i) .crevs_auth. change  TEEN 
putxy (607s lc +i , star ) ; 

IF  u.ar.ac_type(i  ).  crews_auth.ampn. change  TEEN 
putxy(62,slc+i,a  mark); 

EM  if; 

ENE  if; 

IE  u.ar.ac_type(i) .crews_auth. delete  THEN 
putxy (507s Ic  +  i , d_mark  ) ; 

eni  if; 

putxy ( 64, slo  +  i ,u ,ar .ac_type( 1 ) .crevs_auth. Iss)  ; 


putxy( 69, slo+i , Int_to_S  t  r (u .ar .ac_type ( l ) . 

number_o?  locations)) 

eni  ioof; 

ENE  fill  auth  mask? 


PROCEIURE  prccess_auth (1 :  IN  INTEGER; 

check  location:  OUT 


BEGIN 


modify_airauth :  LOOP 
putxy (33, slo+i, clank); 
getxy  lmmediate(33, slo+i , key) ; 
CASE  key  IS 

WEEN  no  incut! space  => 

EXIT  modify_alrauth; 

ViEEN  c  => 


30CLEAN  ) 


IS 


IF  u.ar.ac  type(l).ac  auth. delete  THEN 
errcr(3ll;  --  deleted/cant  modify 


buffer  :=  getxy_digits(40,slo-'-i,2  ) ; 

IF  buffer  =  null_string  THIN 
putxy {40, slo+i7 

u.ar.ac  type(i).ac  auth.iss); 

EXIT; 

ELSE 

u. ar . ac_type( i ) .ac_autn. i ss  :=  buffer; 
u .ar .ac_type( i ) .ac^autn .change  :=  TRUE; 
u.ar.ac_type( i )  .change  :=  TRUE; 
putxy (36 , slo+i , sta  r ) ; 
putxy(40 ,  slo-^i , 

u.ar.ac  tvue(i).ac  auth.iss); 

exit; 

ENT  if; 
eni  loop; 
ene  if; 

WHEN  a  => 

IF  u . ar .ac_type (i ). ac_autn .change  THEN 
process_corrfrent  ("AIPATE"&  Int_to_Str(i  ) , 

u.ar.ac_type(  1)  .ac_auth. airpn) ; 

fill  duth_rraslc; 

ELSE 

error(27);  — no  set  to  arolify 

ENI  if; 

WHEN  d  => 

IF  u. ar. ac_type( i ). ac_ auth . change  THEN 
error(35 T;  —  set' changed ,  can't  delete 

ELSE 

u.ar.ac_type( t) . ac_auth. delet e  :=  TRUE; 
putxy  (36 ,  si  o+l ,  d_rra  rk)  ; 

FNE  if; 

WHEN  r  *> 

IF  u.ar .ac_type(l ) .ac_auth. delete  THEN 
u.ar.ac_type( i) .ac_auth. delete  :=  FALSE; 
putxy (38 ,  slo  +  l ,  olank ) ; 

ELSE 

error(34);  —  set  not  deleted 

ENI  if; 

WFEN  ques  => 
help ( "airauth"  ) ; 

fill  <auth_irask; 

WHEN  OTHERS  => 

error(e);  --  Incorrect  input 
ENE  case; 

ENE  LOOP  rr,odify_dirauth; 


modify_crevauth :  LOOP 
putxy ( 47 , slo+i .blank) ; 
getxy  iirirediate(47.  slo  +  i  ,key) ; 


CAS  I  key  IS 

WEEN  no_input i space  => 

EXIT  rrodify  crevauth; 

WHEN  c  => 

IE  u.dr.dc  type ( 1 ) . crevs_aut ft .ceiet e  THIN 
error(3l7»*  —  deleted/cant  rrodify 

ELSE 
I0CP 

buffer  :=  getxy_digits (54 , slo +i ,2 ) ; 

II  buffer  =  null_string  THEN 
putxy(S4, slo+iT 

u.«ir.dc_tyre(  i  )  .crews_dum.  isi) 

exit; 

ELSE 

u.ar  .ac_type(i ) .crews_auta.iss  :=  suffer; 
u.ar.ao_type( i ) .crevs_auth. change  :=  TRUE 
putxy(S0,slo*i,star);~ 
u.ar.ac_type( 1 ) .change  :=  TRUE; 
putxy (54, slo+i , 

u.a r. ac_type( i ) .crews  autn.iss) 

EXIT; 

end  if; 
eni  loop; 

ENE  IE; 

WEEN  d  => 

IF  u.ar.ac_type(  i ).  cretrs_auth.  change  THEN 
process_comment ( " CRWATE”&  Int_to_St r ( 1 } , 

u.ar  .ac_type  (  i  }  .crews_dutn  .c.Tpa) 
fill  auth  rrask? 

ELSE  ' 

errcr(27);  — no  set  to  arulity 

ENr  if; 

WEEN  d  => 

IF  u .ar .ac_type (i ). cr ews _duth . change  THIN 
error(35);  —  set  changed,  can't  delete 
ELSE 

u.ar.ec_type( i) .crews_duth. delete  :=  TRUE; 
putxy  (50  ,slo  +  l  ,d  rrark); 

ENL  if; 

WEEN  r  => 

IF  u.ar.ac_type(i ). crews_auth. delete  TEEN 
u  .a r .ac_type( i ) .c rews_auth .de iete  :=  FALSE; 
putxy ( 52 , si o*i , blank) 7 
ELSE 

error(34);  —  set  net  deleted 

ENE  if; 

WEEN  ques  -> 
help ( "crewaute" ); 
fill  auth  rrask; 

WHEN  OTHERS  *> 
error  (6 ) ; 


incorrect  input 


PACKAGE  urair3  IS 

—  Interface  to  air  status  information 
slo:  CONSTANT  :=  £»  —  screen  line  offset 

PHOCErUEI  blanlc_inst_area »* 

PROCEDURE  prccess_status (i, j  :  IN  INTEGER); 
END  urair3» 
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--JANUS/AEA  library 


WITH  io,strllb, 
consio ♦ 
urgl tl , 
unitrepB , 
urairB , 
urutil , 
urglobal } 

PACKAGE  ICIY  urair3  IS 

USE  consio, 
urgltl , 
unitrepf., 
urai r 3 , 
urutil , 
urglo  tal ; 

—  This  package  provides  the  routines  necessary  to 

—  modify  air  status  information. 

—  (AIFSTAT,  CHEWSTAT,  FICCN  data  sets) 

PBOCEEURS  tl  ar.k_in  st_a  rea  IS 
BEGIN 

ECF  y  IN  14  . . £  0  LCCP 

nutry  ( 0  ,y  .blankln ) ; 

INI  I  cop; 

ENI  tiank_inst_c rea ; 

PROCEEUBE  process  status ( i  ,  j :  IN  INTEGER )  IS 
USE  striib; 


PPCCEIUFE  recon  mask  IS 
BEGIN 

putxy(S,9,"{  )  -3-  Heconai ssance  Capability 

"Primary - "); 

putry  ( 10,11 ," -  -  - 

*•  »•  . 

- - - . - —  —  j  • 

pu  try  ( 10,12," -  -  - 


ENE  recon  mask; 


& 

& 


FRO  Cl EURE  status_mask  IS 

USE  strlibj  —  Extract 

BEGIN 
torder * 

putxy( 0,1  ,”A IR  -  STATUS”); 

putxy(Z  ,3 /’Aircraft  Type  - - "); 

FUtxy (31 ,3 , ”  (  )  Location”); 

putxy(48 ,3AExtract(da  shin  ,1 ,30  )  )t ; 

putxy(e,S,  (  )  -1-  Aircraft’); 

putxy (48,5, ' (  )  -2-  Crews”); 

putry ( 2 ,6 /’Possessed  FKC  oFNC  NPC’’); 

putxy(48, 6, "Formed  Ready’’); 


); 


putxy{£,7.  --  );  putxy(lc,7,  — 
putxy(S0,7," —  — "); 

recon  rra s ic > 
putxy 72 ,13  ,dashln  )  ♦ 

putxy(0,14, "ENTER  <C>  -  to  CHANGE  -  "  & 

M(in  fields  1,2,3  only)'); 

putxy(8,lh,^<E>  -  to  EELETE  -  (at  Location  will  ”  & 
"lELETE  ALL  information)"); 

putx^(e,16, 

’ <H>  -  to  RESTGRE  -  (restores  deleted  fields)"); 
putxy(8,17, 

' <A>  -  to  AMPLIFY  -  (in  fields  1,2,3  only)"); 
putxy(8.18,”<?>  -  for  FELF  -  (all  fields)"); 
putxy  (0 ,13  ,][TEEN  :  ENTER  Required  information."); 
putxy  (8,20, (an  <ENTER,*  with  no  information  is  "  S, 
"assuirmed  to  be  NO  CHANGE)"); 

ENI  status  mask; 


PPOCEEURF  fill  recon  IS 
3EGIN 

recon_mask; 

putxy(£4,S, 

u.ar.ac  tyt>e(  i  ) .  loca  tion(  j  ) . recon. capa bill ty(  1 ) ) ; 
FOR  k  IN  27.6  LOOP 
putxy (10+ (k-2) *11  ,11, 

u. a r. a c_ t ype(  i  ).  location (  J  )  .recon.  capa  bill  ty(k) )  ; 
EM  locp;  * 

FOE  k  IN  7.. il  LOOP 
putxy(10+(k-7)*ll  ,12, 

u.ar.ac  type( i ) . location ( j ) .recon .capa oili ty( k) )  ; 
EM  locp; 

IE  u. ar.ac_type( i ). lo cat  ion ( j ). recon. dele te  TEEN 
putxy ( 1279 ,d_mark) ; 

ELSIF  u  .ar  .ac_type( i ) .location ( j ) .recon .change  TEEN 
putxy(12,s,itar) ; 

IE  u.ar.ac  typed  )  .location ( j )  .recon .ampn .  change 

THEf» 

putxy ( 14, 9, a  mark  ) ; 

EM  if; 

ENI  if; 

ENE  fill  recon; 


PROCEEGRE  fill  status  mask  IS 
BEGIN 

status_rrask; 

putxy  (14, 3, u.ar.ac, typed  )  .iss) ; 

putxy ( 48 ,3,u.ar . ac  tyne d).location(J).lss); 

IF  J  =  1  TEEN 

putxy (48,3 ,"ECNE  PLATE"); 

ENI  if; 


II  u.ar.ac_type (i ).locaticn( j; .delete  THEN 
putxy  (35 ,3  , d  jrark ) ; 

EISIF  u.ar.ac_type(  1) .  location*'  j  )  .change  TEEN 
putxy (35,3 .star ) * 

ini  if; 

IF  u.ar .ac_type{ i ). location ( j ) .airst at . ceiste  TEEN 
putxy  (10 ,5  ,d_mark )  > 

ELSIF  u.ar.ac  type(i)  .locationfj  hairstat.  change 

THEN 

putxy(10,5 .star) ♦ 

IF  u .ar .ac_type (i 5 .loca tion ( j ) . 

airs  tat  .ampr. .  change;  TEEN 

putxy(12,5,a  mark); 

EM  if; 

ENI  if; 
putxy (5,7, 

u  .ar .ac_type( i ) .location* J ) .al rsta t .posse s sec) ; 
putxy(ie,?,u.ar.ac_type(i)  .location(j)  .airstat.fmc)  ; 
putxy ( 22,? ,u . ar .  ac_type ( i  ) . location (  J  ) .  ai  rsta  t . prnc) ; 
putxy(  28, ?,u  .ar  .ac_type(  i ) . locat  ion  ( ,1 )  .ax rstat  .nmc)  ; 

IE  u. ar.ac_type( i ). location' j ' .crewstat .d elete  TEEN 
putxy (5275 ,d  jrark); 

EISIF  u.ar.ac_type( i) .location ( j ) .crewstat .change 

TEEN 

putxy(52,5,star); 

IE  u  .ar  .ac_type(i ) .location( ^ ) . 

crewstat  .airpr. .  change  TEEN 

putxy*54,5,a  mark); 

ENT  if; 
eni  if; 

putxy ( 50,7, 

u. ar ,ac_type (i).location(j) .crewstat . formed) ; 
putxy(e2,7, 

u.ar.ac_type( i) . locat ion( J) .crewstat. ready) ; 

f ill_reconJ 
ENI  fill_status_mask; 

PROCEEUFF  prccess_recon (i ndex ,x ,y :  IN  INTEGER'  IS 
—  processes  a  single  reccn  set 

USE  i o  J  —Open, CLOSE, GET_LINI 

USE  strlifc;  —  Extract, Po si tion, Char_to  Str.Int  to  Str 
EEGIN 

getxy  immediate(x,y,key) ; 

CASE  key  IS 

\»BFN  no  input  => 

null;’ 

HZN  space  =>  —  delete  set  move  others  up 


FOR  k  IN  index.  .rrax_recon-l  IOOP 
u .ar .ac_type( l)Tlocation(J). 

recon. capabilit y(k )  := 
u .ar .ac_type(i ) .location (j  )  . 

recon. capa bil i ty (k  +  1) ; 

ENI  loop; 

u.ar.ac_type(l).location(,})  . 

recon  .capability  {rrax_recon  )  :=  null_string; 
u.ar.ac_type(i).location(j). 

recon. change  :=  TRUE; 
IF  u.ar .ac_type (i ) . location( j) . 

"recon. number_of _capaoilitles  >  £  THIN 
u  ,ar.ac_type( i) .lccationTj) . 

recon  .nurrber_of_capa  bill  ties  :  = 
u  .ar. ac_type( i ) .1 ocati on ( j )7 

recon. number  of _capabiii ties  -  l; 

ENI  IF; 
f ill_reccn ; 

&HEN  OTHERS  =>  —  add  new  recon  to  the  set 

IF  u.ar.ac_type(i ) .location(  j) . 

recon. nuFber_of_capabilities  >=  r»,ax_reccn  TEEN 
error(40);  —  irax  sets,  delete  first  then  add 
ELSE 

FOR  k  IN  REVERSE  index+1 .  .rrax_reccn  LOOP 
u.ar.ac_type{ i).locatioa(J). 

recon  .capability (k)  :  = 
u  .ar  .ac_type( i) .location(j). 

recon. capability (k-1 ) ; 

ENE  LOOP; 

u.ar.ac_type( i). location 'j). 

recon.  capability  (  index  )  :=  null_string>* 
fill_recon ; 

buffer  :=  Char_to_Str(key) ; 
putxy(x,y, buf fir) ; 
getxy(x+l ,y,file_ buffer, 7) ; 
buffer  :=  buffer  &  file_buffer; 
Cpenffyle/'TABLE.B-s"  ,Read  Only); 

LOOP 

f ile_buf f er  :=  GET_LINE ( fyle ) ; 
file_buffer  := 

Fxtract(file  buffer, 1, 

Position ' "  s"  ,file_buffer )  -1) ; 
IF  file  buffer  *  buffer  TEEN 
CLOSFlfyle) ; 

u . ar .ac_type( i ) .location ( j ) . 

recon  .change  :=  TRUE; 
u  .ar  .ac_type(l ) .loca tion ( J ) . 

"recon. capabillty(index)  :=  buffer? 
u.ar .ac_type( i ) .location ( J) . 

recon. nurrber_of  capabilities  :  = 
u.ar.ac_type( 1)  .location ( jT . 


recon.  nuirber  of  capabilities  +  1 ; 

exit; 
end  if; 

IF  INE  OF  FILI(fyle)  TEEN 
CLOSE (fyle); 

error(41);#t  —  invalid  recon  capability 

putxy(x,y - "); 

EXIT; 

END  if; 

ENE  loop; 

ENI  if; 

ENE  case; 

—  clean  up  null  strings  due  to 

—  faulty  entries/deletions 
FOB  k  IN  1 .  .irax_reccn  LOOP 

IF  u.ar.ac_type(i ).location( j  ) . 

recon. capability ( k)  =  null_string  THEN 
FOB  1  IN  k, .max_recon-l  LOOP 
u.ar.ac_type(i).location(j). 

recon .capablll ty( 1)  := 
u.ar.ac_type ( i ) .locat ion ( i  ) . 

recon. capability( 1+1)  ; 

END  loop; 

u.ar.ac_  typed  ) .  locat i on (  J) . 
recon. capability (irax  recon)  :=  null  string; 
ENE  if; 

INE  loop; 

ENI  process_recon ; 


BEGIN 

rrodify_status :  LOOP 
f  ill^status.irask; 

check_locat ion :  LOOP 
putxy(32,3,blank); 
getxy_lrrmediate(32, 3, key) ; 

CASE  key  IS 

WEEN  no_input i space  *> 

EXIT  check  location? 

WHEN  d  => 

IF  u.ar .ac_type(i ) .location( J ) .change  OR 
u.ar  .ac^typed ) .  locat  ion (  j ) . 

airsta  t. change  OR 
u  ,ar.ac_type (i). locat lon(J). 

crewsta t . change  OR 
u.ar.ac_  typed ) .locat ion (J  ) . 

recon. change  THEN 

error(35);  —  changed  ,  can't  delete 

ELSE 

u.ar . ac_type( i ) . loca tion( j ) .delet e  :=  TRUE; 
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u.ar .ac_type( i)  .location ( J  )  . 

airstat . delete  :=  TRUE; 
u .ar .ac_type( i ) .location(j) . 

crevstat .delete  :=  TRUE; 
u.ar . ac_type( i ) . locatioa( J ) . 

recon. delete  :=  TRUE; 

putxy(35,3,d_rrark) ; 
putxy(10,5td_rrark) ; 
putxy(52,5,d~mark) ; 
putxy(12,9,d”irdrk); 

ini  if ; 

WEEN  r  => 

IF  u.ar.ac_type(i ) .location( j)  .delete  OR 
u.ar.ac_type(i). locational). 

airs ta t .delete  OR 
u .ar  .«»c_ type (i  )  .location  ( J  ) . 

crewsta t. delete  OR 
u.ar.ac_type(i).location(j). 

recon. delete  THEN 

u.ar.ac_type( i) .lccati on(j ) .delete  :=  FALSE; 
u.ar.ac_type(i)  .location(j)  . 

ai rstat  .delete  :=  FALSE; 
u .ar.ac_type(  i)  .location^*)  . 

crewstat  .delete  :=  FALSE; 
u.ar.ac_type( l) . location ( j ) . 

recon. delete  :=  FALSE; 

putxy(35,3,blank) ; 
putxy(10 , 5f  blank) ; 
putxy (52 ,5, tl auk ) ; 
putxy (12,9, blank) ; 

ELSE 

error(34)i  —  not  deleted 

END  if; 

VEEN  oues  => 

help ("location" ); 
fill  status  n-ask; 

WHEN  OTHERS  => 

error(6);  —  incorrect  input 

ENI  case; 

ENI  LOOP  check_locatlon; 

nrodify_airstat :  LOOP 
putxy(7,5, blank); 
getxy_irrtrediate(7,5,key) ; 

CASE  key  IS 

WHEN  no_input | space  => 

EXIT  niodify_airstat  * 

WHEN  c  => 

IF  u.ar.ac_type(i) .iocation(J). 

airstat. delete  THEN 


—  cant  rrodify  deleted 


error  (31 ) ? 

<SE 
LOOP 

buffer  :=  getxy  digits (5,7,2) ? 

EXIT  WEEN  buffer  =  null  string; 
u.ar  .ac_type(  i  )  .location (  j)  . 

airstat .possessed  :=  buffer? 
u.ar.ac_type( i ) .location( j) . 

airstat .change  :=  TRUE? 

putxy( 10 i 5, star ) ? 

u.ar.ac_type(i) .location ( J ) .change  :=TRUE? 
EXIT? 

ENL  LOOP? 

putxy ( 5 .7 ,u .ar . ac_type ( i ). location (J  ) . 

airstat .possessed) ? 

LOOP 

buffer  :=  getxy  digi ts ( 16  ,7 ,2 ) ? 

EXIT  WEEN  buffer  =  null_string? 
u.ar.ac_t7pe(i).location(j). 

airstat. fTc  :=  Duffer? 
u. ar  .ac_type«,  i  )  .loca ti on  ( j  ) . 

airstat .change  :=  TRUE? 

putxy (10  5, star) ; 

u.ar.ac  tyoeU  )  .loca t ion ( J h cha nge  :=TRUE? 
EXIT? 

ENL  LOOP? 

putxy(16,?,u.ar.ac_type( i ) . loca tion( j ) . 

airstat . fmc) ? 

I CCF 

buffer  :=  getxy.digits (22  ,7  ,2  )  ? 

EXIT  WHEN  buffer  *  null_string? 
u.ar  ,ac..type(  i )  .location  (  j ) . 

airstat. pirc  :=  buffer? 
u.ar .ac_type( i )  .loca t ion ( J  ) . 

airstat .change  :=  TRUE? 

putxy(10,5,star)? 

u  .ar  .ac_type(  i )  .location  (  J  )  .change  :=TRUE? 
EXIT  ? 

END  LOOP? 

putxy (22 ,7, u.ar .ac_type( i ).  location ( j  ) . 

al  rsta  t.  pirc)  ? 

LOOP 

buffer  :=  getxy_digi t s (28 ,7 ,2 )  ? 

EXIT  WEEN  buffer  =  null_string? 
u.ar .oc_type( 1 ) .location(j)  . 

airstat. nrc  :=  buffer? 
u.ar.ac_type( i ) . loca ti on( J ) . 

airstat .change  :=  TRUE? 

putxy( 10,5, sta r  )? 

u.ar  .ac_type( i  )  .location {  1 )  .change  :  =  TRUE? 


END  LOOP! 

putxy(28,7,u.ar.ac_type( i)  . location ( j  ) . 

airstat. nmc) ; 

IF  Str_to_Int (u .ar .ac_type (i  )  .location (j ) . 

airstat .possessed)  /= 
Str_to_Int(u.ar .ac_type (i).location(j). 

airstat. fmc)  + 
Str_to_Int(u.ar.ac,_  type(i).locaticn(J). 

airstat .pmc)  + 
Str_to_Int(u.ar.ac_typ2(i).location(j). 

airstat  .nmc )  THEN 

error ( 38 ) ; 

—  possessd/fmc .nmc .nmc  don't  sum 

END  if; 

END  if; 

WHEN  a  => 

IF  u.ar.ac  type(i) .location* J) .airstat .change 

TEEN 

process_comment  (  AIRS T A  S  Int  to_Str(i)  & 

Int_to_Str  ( jT » 

u.ar . ac_ type ( i  ) .  locat ion(  j  ) .  airsta  t.arrpn) 
fill  status  mask; 

ELSE 

error(27);  — not  changed 

INI  if; 

VEEN  d  »> 

IF  u.ar.ac  typed  ).  location(  j  )  .airstat.  change 

THEN 

error(35);  — set  rrodif  ied/can  't  change 

ELSE 

u.ar.ac_type( i). location'.)). 

airstat .delete  :=  TRUE; 

putxy  (lZ,5td_rrark); 

—  also  delete  recon 

IF  u.ar  .a  c_  typed  )  .1  oca  tion(j) . 

recon .number, of_capabili ties  >  2 
THEN  u.a r .ac_ type ( i ) .location  (J  ). 

reccn. delete  :=  TRUE; 

putxy(12,S,d  mark); 

INI  if; 

END  if; 

WHEN  r  => 

IF  u.ar.ac  type( i ). locat ion (  1 )  .airs tat . delete 

THEN 

u.ar.ac_type(i).location(J). 

airstat .delete  :=  FALSE; 

putxy (12,5, blank) ; 

ELSE 

error(34);  —  not  deleted/can 't  restore 
END  if; 

WEEN  cues  -> 


help( "AIBSTAT" ) » 
fill  status  rrask; 

WEEN  OTHERS  => 

error(6);  —  in  correct  input 

INI  case; 

ENI  LOOP  rrodify_airstat; 

irodi fy_crewstat :  LOOP 
putxy(49,5,blank) » 
getxy_i?rmediate  (4S,£,key)  ♦ 

CASE  key  IS 

WHEN  ao_input ! space  »> 

EXIT  Siodify_crewstat; 

WEEN  c  => 

IF  u.ar.ac  type (i ) .locat ion ( j  )  .crewstat .delete 

THEN 

error(31);  --  cant  xodify  deleted 

ELSE 
LOOP 

buffer  :=  getxy_digi ts (50  ,?  ,2  ) ; 

EXIT  WHEN  buffer  =  null_stringj 
u. ar.ac_ty?e( i) . loca tion ( j ) . 

crewstat . formed  :=  buffer? 
u.ar .ac_type( i )  .locati on ( j  ) . 

crewstat. change  TRUE; 

putxy(£2, 5, star ) ; 

u.ar.ac  type(  i )  .locati  on  (  i )  .change  :  -TRUE  ? 

exit; 

ENI  loof; 

putxy( 50 ,7,u.ar  .ac_type( i )  .location ( j  )  . 

crewstat  .f  orred.) ; 

LOOP 

buffer  :=  getxy  digi ts( 62 ,7 ,2  ) ; 

EXIT  WEEN  buffer  *  null_string; 
u.ar.ac_type(i).location(j). 

crewstat .ready  :=  Duffer; 
u.ar.ac_type( i )  .locati cn( j)  . 

crewstat . change  :=  TRUE; 

putxy (52, 5, star ) ; 

u.ar.ac  tyoe( i ) .loca tion ( j ). change  :=TRUE; 

exit; 
enl  loop; 

putxy (62,7 , u. ar . ac_type( 1 ) . loca  tioa(  J ) . 

crewstat . ready) ; 

IE  Str_to_INT (u .ar .ac_type ( i ). location ( J ) . 

crewstat.  forrred)  < 
Str_to_Int( u.ar.ac_type( i ) .loca tion ( j )  . 

"crewstat. ready )  THEN 
error(39);  — crews  ready  >  crews  forred 
ENE  if; 


WHIN  a  => 

IF  u .ar .ac_type (i ). location  (  j  ) . 

i%crevsta t .  change  THEN 

process_comment ( "CRWSTA"  &  Int  to_Str(i)  & 
Int_to_Str(J) ,u.ar.ac_type(i7.1ocaticn(j) . 

crevstat .ampn) ; 

fill  status  mask? 

ELSE 

error(27);  —  no  set  to  amplify 

ENT  if; 

WHEN  d  => 

IF  u.ar.ac_tyoe(i).location(j). crevstat .change 

THEN 

error ( 35 ) i 
ELSE 

u.ar.ac_type(i)  .location  ( j) . 

crevsta t. delete  :=  TRUE? 

putxy ( £2 ,5 , d  mark^J 
ENI  if; 

WHEN  r  => 

IF  u.ar .ac_type( i ) . locatlon( j ) . 

crevstat .delete  THEN 
u.ar.ac_type( i) . locationf  j  ) . 

crevstat .delete  :=  FALSE* 

•putxy (52,5, blank) > 

ELSE 

error(34);  — not  deleted/can ' t  restore 

ENI  if; 

WEEN  aues  => 

help( "CREWS TAT" ) ; 
fili_status  mask; 

WHEN  OTHERS  => 

error(e);  —  incorrect  input 

ENI  case; 

EM  LOOP  modify_crevstat; 

mod ify_recon :  LOCP 
putxy (9 ,9 , blank ) ; 
getxy  immediate(9  ,9  ,xey ); 

CASE  key  IS 

WHEN  no_input  i  space  =,s 
EXIT  modify  recon ; 

WFFN  c  => 

IF  u.ar.ac  type( i ) . location( j ) . reco n. delete 

TEEN 

error(31);  —  cant  modify  deleted 

ELSE 

putxy( 12 ,9, star) ; 
blank  inst  area? 

putxy (8, 15,"FCR  RECCN  CPANGIS . . . " ; ; 
putxy(8,16,  XZNTEB)  -  go  to  next  item”'; 


putxy(8,17,  ‘space  -  erase  this  i t err " ) ; 
putxy{8,18, 

all  others  -  add  item  at  this  location  ) 
process  recond  ,E4,9) ; 

FOR  k  IN  2. .6  LOOP 

process_recoa(k,10+(k-2)*ll  ,11); 

ENE  loop; 

FOR  k  IN  7. .11  LOOP 

process  recon (k,10+ (k-7)*il ,12) ; 

ENE  loop;- 
fne  if; 

WHEN  a  => 

IF  u.ar.ac  tyne(i ). location( j ). recon. change 

THE 

process_comrrent  ( "RECCN"  &  Int_tc_Str(i  }  & 
Int_to_Str(j)  ,u.ar.ac_type(i) .location(j) 

recon. ampn ) 

fill  status  mask; 

ELSE 

error(27);  —  set  not  changed/can't  amulify 

ene  if; 

WEEN  d  => 

IF  u.ar.ac  tyue (i ). locat ion ( j  ). reco n. change 

TEEN 

errcr(35);  —  cant  delete  modified  set 

ELSE 

u.ar.ac_type( i) . locat ionf j  ) . 

recon. delete  :=  TRUE; 

pvtxy (12 , 9, d  mark); 

ENI  if; 

WEEN  r  => 

IF  u.ar.ac  tyue(i  )  .location( j)  .recon. delete 

THEN 

u . ar . ac_type( i ) . loca  tlon( J ) . 

recon. delete  :=  FALSE 

outxy (12,9, blank) ; 

ELSE 

error(34);  —  not  deleted/cant  restore 

INE  IF; 

WEEN  ques  =) 
help(  ’’recon”  ) ; 
vi ew_table ("TABLE. 1-3” ); 
fill  status  mask; 

WHEN  OTHERS  => 

error(e);  —  invalid  input 

ENE  case; 

ENE  LOOP  modlfy_recon ; 
tlank_i ns  t_area7 

IF  u.ir .ac~type(i ).location(j ) .delete  OR 

u.ar.ac_type( 1). locati on (J).airstat. delete  OR 
u. ar. a c_type(i).location(j). crews tat. delete  OR 


u.ar.ac  tyoe(i ) .location(J ) .recon. delete  TEEN 
FUT(bell) »  „ 

putxy(13,l€,  Data  is  to  be  deleted  .i(£nsure  & 
n”that  the  corresponding  )» 
putxy( 6,1?, "data  items  are  adjusted  in  another  & 
"  STATUS  dislay,  (if  required)  ); 
putxy(3£ , 19, "<ENTEB>  to  Continue  "); 
getxy  immediat  e(52 ,19  ,key )  j 
INI  IE? 

blank  inst^areai 

putxyfa ,1?7"<ENTI.R>  to  Continue,  Enter  <X>  to  & 
"deselect:"); 
reselect  :=  rark(44,17); 

ZXI1  irodify_status  WEEN  NCT  reselect; 

5NI  ICOP  irodlty_status> 

ENI  process_status; 

EM  urairS; 


—  JANUS/ABA  Library 


WITE  io, 

printio , 
urgltl , 
urglobal , 
urlocalA, 
unitrepA; 

PACKAGE  iOIT  initialA  IS 

USE  io,  --  Open .CLOSE, DELETE 

printio, 
urgltl , 
urglobal , 
urlocalA, 
unitrepA; 

—  This  package  is  used  to  form: 

—  the  initial  vorkfile  (UNIT000A ) , 

—  elements  of  the  local  data  structure 

—  the  initial  program  status  file  (STATUS), 

—  and  the  initial  cross  reference  file  (CROSSREF). 
—  When  urtest  is  incorporated  the  test  file 

—  TIST000  is  also  formed. 

—  The  INITIALA  .COf"  file  resulting  from  this 

—  package  should  net  ee  distributed  to  all  users. 

—  Only  those  organizations  require.;  to  set  the 

—  UNIT000A,  STATUS  and  CROSSREF  external  files 

—  should  have  access  to  this  code. 

—  UNIT000A,  STATUS  and  CHOSSRIF  files  are  added 

—  to  the  originaing  units  UNITREP  FASTER  DISK  after 
—  Initialization  has  been  performed. 


fyle:  FILE; 

serial^dtg:  STRING(ie) » 

#  test  number:  INTEGER; 


EEGIN 

— a 
— a 
— # 

— # 

— a 
— # 

— # 

— # 

— # 


initialize  test  data  -  sets  A:TEST000  to  0 
DELETE ("TEST000" ); 

FUT( "Creating  new  TISTZ00 . . ." ) ;  NEV  LINE; 
Create(fyle,  TEST000,’,Krite_Only) ; 

Open ( fyle, "TEST000" ,Wri te_0nly ) ; 
test_numter  :=  0; 

PUT(fyle .test  number); 

CICSE(fyle); 

PUT("Put  of  0  to  TEST000  complete...  "  ); 

NEV  LINE,*  NEV  LINE; 


—  initialize  the  program  statu 
prograir  .unit  :=  ship; 
program .initial_entry  :*  TRUIJ 
program. print_trailer  :*  FALSE? 
program .messaie_transmitted  :=  FALSI ; 

FOR  i  IN  action’RANGE  draft.. quit  LOOP 
urogram. current  a ction(i)  :=  FALSI ; 

INI  loop; 

FOR  i  IN  areas  RANGE  pers.. local  LOCP 
prograir  .current  area(i)  :*  FALSI; 

ENI  loop; 

FOR  i  IN  format  RANGE  msg..text  LOOP 
program. current_format(i)  :=  FALSE; 

ENI  loop; 

program .print ing_line  :=  i; 
program. workfile":=  "DNITeaz"; 

DELETE ("STATUS"); 

Crea te(fyle, "STATUS", Write. Only ) ; 
Write(fyle, program) ; 

CLOSE ( fyle) ; 

PUT("Write  to  STATUS  comolete . . . “ ) ; 
new_line;  new_line; 

—  initialize  UNIT000 

u.l. change  :»  FALSE;  ' 

u.l. status. transmitted  r=  FALSE; 

u.l  .status  .last.serial  :*  '‘000"; 

u.l. status. feeder. report  :*  FALSE; 

u.l. status. unit  Id  := 

u.l .status  .current.serial  :=  '00l“; 

u.l. status. ampn. change  :*  FALSE; 

u.  1. status  .ampn . numher.of _1 ines  :=  0; 

u.l .message. precedence  :*  priority; 

u.l. message. dtg  :=  "**; 

u.l. message. origlnator.address  :*  ""; 

u. 1. message. classification  :=  confidential; 

u .1 . message. declassif ication  := 

u.l .operation .underlay  :*  FALSE; 

u.l. operation. codeword  :* 

u.l .operation  .plan_org_number  := 

u.l. exercise. underway  ;=  £4  LSI; 
u.l. exercise. nickname  ; 

u.l .position. change  :«  FALSE; 

u.l. position. lat_long  :=  FALSE; 

u.l .position .present^location  :*  ""; 

u.l. position. dtg  :* 

u.l. position. ampn. change  :=  FALSE; 


u.l . position. airpn.number_of_llnes  := 

u.l.rem arks. change  :=  FALSI; 
u.l. remarks. nvmber_of_pages  :=  0; 

FOB  1  IK  1 .  .max_rmks  pages  LCCP 

u.l. remarks. pige(l7. change  :*  FALSE 
u. 1. remarks .page(l) .number  of  lines 
INI  loop; 


eileti(”unit000a"); 

Create (fyle, "UNIT000A"  ,Write_Cnly)  > 
Open(fyle,”UNIT000A", Write  Only) ; 
Vrlte(fyle,u); 

CLOSI(fyle); 

PUT("Write  to  ON IT000A  Complete..."); 

nev_lim;  new_line; 

—  set  up  the  gross  reference  f^le 
serial  dtg  :=  000  ddhhmmZMtfmyy  ; 

BELFTI( "CPCSSRIF” ) » 

Create( fyle, "CBOSSREF”, Write  Only) ; 
PUT (fyle, serial  dtg);  NEW  LINE(fyle); 
Close (fyle) ; 

PUT("PUT  to  CROSSREF  Complete..."); 

new  line;  mw  line; 


ENE  lnltlalA ; 


--  JANUS/ATA  Library 


%ITB  io. 

urgltl , 
uradirinB, 
urairB, 
unitrepBJ 
PACKAGE  ICIY  initialB  IS 

USE  lo; 

USE  urglti; 

USE  urairB; 

USE  uradirinB; 

USE  unitrepB; 

—  initialize  the  'B'  data  structure 

tvo0 :  STBING; 

fyle:  fill; 

PROCEDURE  zero  locat ion  (1 ,  J  :  IK  INTEGER)  IS 
BEGIN 

—  zero  location  set  (i,J) 
u.ar.ac_type(i) .location(  <) .change  :=  FALSE; 
u.ar.ac_tyoed). location! J ) .delete  :*  FALSE* 

IF  _1  =  1  THEN 

—  present  position 
u.ar.ac  type(i). location! J) .iss  :* 

ELSE 

u.ar.ac  typed )  .location(  *)  .iss  :=  ; 

ENI  if; 

u.ar.ac_type( 1) .location! J) .airstat .change  :=  FALSE; 
u.ar.ac_type(i). location!,})  .airstat. delete  :=  FALSE; 
u.ar.ac”type(i), location! J) .airstat. possessed  :=  twoe 
u.ar.ac”type(i)  .location!  J)  .ai  rstat. fire  :=  tvoa; 
u.ar.ac”type(i  )  .location!  J  )  .airstat  .pirc  :*  two0J 
u.ar .ac~type( i ). locat ion ( J ) .airstat .nmc  :=  two ZJ 
u.ar.ac_type(i ) .location! j) . 

ai  rstat  .airpn  .change  :  =  FALSE 
u.ar  .ac_ typed  )  .location!  j  ) . 

airstat  .ampn  .nuirber_of_lines  :  =  Z 
u.ar.ac_type(i)  .location! J) .crewstat .changi  :=  FALSE; 
u. ar.ac'type! i ). locat loa( j ) .crewstat .dele te  :=  FALSE; 
u.ar.ac_type( i) .location! J)  .crevstat  .formed  :=  tvo2; 
u.ar .ac”type( i ) .locat ion! j ) .crewstat .ready  two0J 
u.  ar.  ac~type(  i ) .  location!  J ) . 

crevstat  .airpn  .charge  :=  FALSE 
u.ar.ac_type( i ) .location!  J) . 

crewstat  .airpa.  nuirber_of_liaes  :*  0 
u.ar.ac_type( i)  .location! J)  .recon. changi  :=  FALSE; 
u.ar .ac”type(i ) .location! j) .recon .delete  :=  FALSI; 
u.ar.ac” type! i) .location! 3 ) .recon. 

nuirber_of_capabilities  :*  2 
u.ar.ac_type(i) .location! J) . 

recen .airpn .change  :»  FALSI 


u.ar  .ac_ typed  )  .location?  J) . 

recon ,ampn.number_of_lines  :=  di 
FOB  z  IN  1.  .irax_recon  LOOP 
u. a r.ac_type(i). location? j) . 

recon  .capability ( z )  := 

INE  lccp; 

INE  zero  location; 


PROCEDURE  zero  «c  typed:  IN  INTEGER)  IS 
BEGIN 

—  zero  out  all  iterrs 
u.ar.ac_type( 1 ) .change  :=  FALSE; 
u.ar.ac**type(i )  .delete  :=  FALSE; 
u.ar.ac~type?  i ) .  iss  :=  "**; 
u.ar.ac_type(i) .ac_auth. change  :=  FALSI; 
u.ar.dc”type(i) .ac^auth. delete  :=  FALSE; 
u.ar.ac3type?i).ac~auth.iss  :*  tvo2; 
u.ar.ac”type(i )  .ac'auth.ampn . change  :=  FALSE; 
u.ar.ac  type (i  ) .ac_auth.ampn. number  of  lines  :=  e; 
u.ar.ac_type( i) .criws_auth. change  :=  FALSE; 
u.ar.ac_type(i) .crews_auth. delete  :=  FALSI; 
u.ar.acdype(i)  .crews_auth.iss  :=  two0; 
u.ar.ac”type(  i)  .crevs_auth.ampn. change  :=  FALSE; 
u.ar.ac_typed).crews_auth.airpn.  auirber_of_lines  :*  e; 
u.ar.ac_type( i) .number_o?  locations  :=  i;  —  homeplate 
FOR  V1  IN  1 .  .irax^locations  LCCP 
zero  locatlonTi* j); 

EM  ICOP; 

ENI  zero_ac_type; 


BEGIN 

tvoO  :»  "00"; 

—  initialize  UNIT000B 

—  admin  sets 
u. ad. change  :s  FALSE; 

u. ad. coirir.and. change  :=t< FALSE; 

u. ad  .command. cooic  ? 

u. ad. command. dtg  :* 

u .ad. command .ampn .change  :=  FALSE; 

u. ad. command. ampn .number_of_liaes  :  =  0; 

u. ad. activ. change  :*  FALSE; 
u.ad.actiY.activity_code  :*  CF"; 
u. ad. activ, ampn. change  :*  FALSE; 
u.ad.actim.ampn .number_of _1 ines  :*  0; 


u. ad. tredic  .change  :=  FALSE; 
u. ad. iredic. status  :=  onboard; 
u. ad .redlc .airpn .change  FAISE; 

u. ad. iredic. airpn. nuirber_of_ilnes  :  =  05 

u. ad. reporg. change  :*  FALSE; 
u.ad.reporg.new_repiTorg  :  =  cno; 
u.ad.reporg.dtg~:= 
u. ad  .reporg. airpn  .change  :=  FALSE; 
u. ad. reporg. arpn.nuirber_cf  .lines  :=  2 

u. ad .verify. change  :  =  FALSI; 
u. ad. verify  .feedbacit_ver  :=  velid; 
u. ad  .verify  .airpn. change  :*  FALSE; 
u. ad. verify. airpn. number_of_lin€*s  :=  2 

--  air  sets 
u.ar. change  :=  FALSE; 
u .ar .nuirber_of_ac_types  :*  ?; 

FOR  i  IN  1 .  .irdi_oc_types  I.CCF 
zero  a c  typed); 

INI  loof;“ 

DELETE ( "UNIT000B" )  ; 
Create(fylet"DNIT000B" , »ri ce_Ctly) ; 
Open ( f yle, 'UNIT0003”, Write  Only ) ; 
Wrlte(fyle.u) ; 

CLOSI(fyle); 

PUT("Write  to  UNIT0003  Conolete. . . "  )  5 

new  line;  new  line; 


END  initialB; 
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